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LES DESSOUS DE U 



Beaucoup de nouveau-venus à la micro- 
informatique ont choisi l'AMSTRAD pour le prix 
de cet ENSEMBLE complet, face à ses concurrents 
où il faut ajouter une petite télé couleur, un magné- 
tophone, extension mémoire, des câbles, des inter- 
faces pour ceci ou pour cela. 
C'est vrai, mais le professionnel examine l'appareil 
en le comparant non seulement aux micros dits 
"domestiques", mais aussi aux micros dits "profes- 
sionnels" genre APPLE Ile, TRS 80, IBM PC, etc., et 
là, nous sommes allés de surprise en surprise 




Michel ARCHAMBAULT 



LE CLAVIER 

Un vrai mécanique, bon toucher 
et apparamment robuste. 
QWERTY, les dactylos n'aiment 
pas cela, mais les programmeurs 
le préfèrent à l'AZERTY. Complet 
avec pavé numérique ou onze 
touches de fonctions, et pavé de 
"flèches". Deux défauts : 
absence totale de témoin de 
CAPS LOCK (très gênant) et posi- 
tion trop haute (fatigue des poi- 
gnets). Un coloris plus clair que 
cet anthracite aurait fait moins 
sévère. 



LE BASIC 

Super riche et puissant. Très lar- 
gement inspiré du "Standard 
Microsoft" (mêmes syntaxes), il 
se montre souvent plus tolérant 
et plus rapide. Beaucoup de fonc- 
tions inédites, mais aussi quel- 
ques absences remarquées et 
regrettables (CIRCLE, PAINT, 
GET, hauteur double, etc.). Le 
grand point fort est d'avoir 
43533 octets disponibles malgré 
un Basic de 32 k-octets et une 
mémoire d'écran de 1 6 k-octets. 
Je m'explique : un micro- 



ordinateur "8 bits" ne peut 
adresser que sur 64 k ( = 65536 
octets ; 1 k-octet = 1 024 octets 
et non 1000). Or, 64-32- 16 = 
16 k qui devraient nous rester, 
c'est pour cela que d'autres 
micros aux Basic 32 k ne suppor- 
tent pas de gros programmes. Le 
secret (très complexe) est une 
savante commutation partielle 
entre ROM et RAM qui nous 
laisse 43 k au lieu de 16k! Résul- 
tat : on peut charger d'énormes 
logiciels du commerce (exemple 
"FIGHTER PILOT" qui fait envi- 
ron 38 k...), ou stocker beaucoup 
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de choses en mémoire à la suite 
d'un programme, exemple en 
traitement de texte, gestion de 
fichiers, etc. 

L'ECRAN 

Le moniteur couleur n'a qu'un 
seul réglage, c'est maigre, mais 
le tube est excellent. Gros point 
fort : on a les "80 colonnes" ! 
C'est pratiquement indispensable 
lorsque l'on utilise des logiciels 
dits "utilitaires" genre traitement 
de texte, tableur ("CALC") et 
pour la haute résolution graphi- 
que (finesse du trait). Sur d'au- 
tres micros, il faut pour cela enfi- 
cher une carte électronique 
valant une petite fortune ; ici 
c'est gratuit et programmable, 
donc sans rien démonter ! Le 
débouché est donc évident sur 
des utilisations professionnelles. 
Le second point fort est que l'on 
peut intimement mêler texte et 
graphisme sur une même page 
d'écran. AMSTRAD n'est pas le 
seul en ce domaine (exemple 
THOMSON), mais c'est une 
mode assez récente et bien pra- 
tique. 

Le revers de la médaille à pré- 
sent : en mode "normal" (40 
caractères), on ne dipose que de 
quatre couleurs simultanées — 
une misère... D'autre part, le plan 
mémoire de l'écran est d'une 
complexité inouie dont je vous 
ferai grâce aujourd'hui. Faire des 
POKE et des PEEK dans la mé- 
moire d'écran d'un ORIC ATMOS 
est chose enfantine, mais là, bon 
courage ! 

LA MEMOIRE DE MASSE 

C'est ici le magnéto-cassette. 
Modèle monophonique bas de 



gamme adapté à ce micro- 
ordinateur. On a ainsi hérité de 
cette maudite touche PAUSE 
plus farceuse qu'utile 
(condamnez-la), et on n'a pas 
d'arrêt automatique en fin de 
bobinage. Toutefois, il semble 
étonnamment fiable et robuste. A 
part l'absence de VERIFY, les 
commande BASIC qui s'y rappor- 
tent sont très complètes, voire 
originales, exemple SAVE " ",P. 
Et puis, il y a en option le (ou les) 
lecteur de disquettes, ou 
"DRIVE", avec tous les agré- 
ments que cela apporte. Mais 
quelle idée bizarre d'avoir opté 
pour le format 3 pouces ? Trois 
fois et demi plus cher que les 5 
pouces 1 /4, trois fois plus petit, 
mais quatre fois plus épais. On lit 
"par sa compatibilité il vous 
ouvre la grande bibliothèque 
CP/M", Oui, mais à l'heure 
actuelle, le CP/M est en 5 pouces 
1 /4 et il faudra attendre les tra- 
ductions en 3 pouces (déjà en 
cours, paraît-il). Même remarque 
pour la compatibilité avec cer- 
tains fichiers d'IBM PC qui, lui 
aussi, est en 5 pouces 1/4... 

LA RAPIDITE 

La rapidité d'affichage à l'écran, 
par exemple, en faisant LIST, est 
très moyenne, à cause de la 
complexité de la mémoire 
d'écran. En revanche, la rapidité 
de traitement est surprenante, 
plus rapide qu'un APPLE II et seu- 
lement 10 % moins rapide qu'un 
IBM PC ! Exemple : FOR l% = 1 
TO 10000:IMEXT. 
Durée : 5,5 secondes contre 
5,1 secondes sur IBM PC. Par 
pudeur, nous tairons les temps 
chronométrés sur certains micros 
actuels... 



Cela nous amène à parler temps : 
quatre chronomètres (fonctions 
AFTER et EVERY) plus une hor- 
loge (TIME). Le grand luxe... 

LE MANUEL 

Il est en français, il est épais, 
robuste et bien relié. Je pense 
que son auteur a voulu bien faire 
mais qu'il était "pris à la gorge" 
par le temps, d'où cet aspect un 
peu désordre et quelques lacu- 
nes, somme toute, pardonnables. 
Ce sera aussi notre rôle d'éclair- 
cir l'utilisateur de certaines fonc- 
tions Basic. 

LES LOGICIELS 

Même remarque que pour le 
manuel : les premiers furent sou- 
vent un peu simplistes, mais on 
voit maintenant fleurir des petits 
chefs-d'œuvres (voir notre banc 
d'essai). Je constate que des 
"best sellers" sur les autres 
micros sont de plus en plus sou- 
vent "traduits" pour fonctionner 
sur AMSTRAD qui, d'emblée, a 
été pris très au sérieux par tous 
les éditeurs. Grâce à sa possibi- 
lité 80 colonnes, la qualité de son 
DRIVE et sa rapidité, il est fort 
probable (avis personnel) que des 
logiciels professionnels déjà très 
célèbres fassent leur apparition 
pour AMSTRAD, mais sur dis- 
quettes obligatoirement. 

CONCLUSION 

L'AMSTRAD constitue un cas 
jusqu'ici unique : un micro- 
ordinateur "domestique" de prix 
très modique et qui est déjà prêt 
pour faire du (petit) professionnel, 
il commence seulement à nous 
surprendre. 
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ROLAND ON THE ROPES 
(Artisoft) en anglais 

J'ai vu par ailleurs beaucoup de 
critiques sur les logiciels 
AMSOFT, que l'on qualifie de 
"faibles". Ce n'est pas mon opi- 
nion. Il faut dire que, les années 
passant, nous devenons très dif- 
ficiles sur la qualité des logiciels, 
et nous leur demandons de plus 
en plus d'originalité, de suspense, 
etc. Pour ceux d'entre vous qui 
ont acquis un ORIC-1 , il y a quel- 
ques années (eh oui, déjà), je me 
permettrai de faire appel à leurs 
souvenirs : se rappellent-ils un 
certain "simulateur de vol" ? Eh 
bien, AMSOFT, c'est 100 fois 
mieux. Des graphismes corrects, 
de la couleur, du son, des images 
qui bougent rapidement, bref, 
des logiciels corrects. Il y a 



mieux, mais il y a pire ! 
Roland est un brave homme, qui 
est dans un labyrinthe vertical, 
dans lequel il se déplace, soit 
dans des couloirs, soit dans des 
cheminées ; il doit sortir de ce 
dédale. Il y a évidemment des 
bestioles (elles sont petites et 
mignonnes), des fantômes, etc. 
Le jeu n'est pas bien dur, et 
conviendra à des enfants jeunes. 
On peut utiliser une manette de 
jeu, et c'est très agréable. 
Graphisme = 2 — Animation = 2 
Son = 2 - Intérêt = 2. 

KARLS TREASURE HUNT 
(Software Super Savers) 
en anglais 

Ce jeu est nettement supérieur au 
précédent. Graphismes en cou- 
leurs très élaborés assurent un 
renouvellement constant. Il y a de 
nombreux tableaux (40) et l'on 
passe de façon naturelle de l'un 
à l'autre. Karl, notre héros, doit 
ramasser des clés en or dans cha- 
cune des pièces d'une grande 
maison. L'intérêt du jeu est cer- 
tain, dans la mesure où il faut 
chercher comment accéder à 
chaque clé, et qu'il n'est pas évi- 
dent à chaque fois que l'on est 
entré par le bon côté de la pièce... 
Les difficultés sont très variées, 
et se renouvellent à chaque 
pièce. 

Un logiciel de qualité qui vous 
fera passer de bons (et de longs) 
moments agréables. Le genre de 
chose dont on doit disposer en 
une dizaine d'exemplaires dans la 
logithèque. 

Graphisme = 4 — Animation = 4 
Son = 3 — Intérêt = 4. 
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OH MUMMY 
(Artisoft) en anglais 

Ça, par contre, c'est beaucoup 
moins génial ! Un explorateur doit 
visiter une pyramide. A chaque 
niveau de celle-ci, une vingtaine 
de "briques" (c'est ma traduc- 
tion du mot anglais correspon- 
dant !) dissimulant objets et tré- 
sors. Le fait de tourner complè- 
tement autour de l'une d'elles fait 
découvrir ce qu'elle cache. Pour 
passer au niveau supérieur, il faut 
aussi découvrir une clé, un trésor 
et je ne sais plus quoi d'autre (le 
graphisme est quelconque). Mais 
pour corser ce jeu extraordinaire, 
tenez vous bien, il y a un gardien 
qui vous pourchasse et qui vous 
empêche de tourner en rond 
(c'est le cas de le dire). Mais je 



n'ai pas tout dit : au second 
niveau, il y a maintenant deux 
gardiens qui vous pourchassent 
et qui... C'est sublime ! Bien sûr, 
au troisième niveau, il y en a 3. 
De quoi vous donner des frissons 
dans le dos. 

Ne soyons pas méchants et 
admettons que ce jeu conviendra 
aux enfants. Il n'y a pas une ving- 
taine de touches à mémoriser ; le 
jeu est simple et sans suprise. 
Signalons qu'il y a plusieurs 
niveaux de difficulté et de rapi- 
dité ; on peut utiliser une manette 
de jeu. 

Graphisme = 2 — Animation = 3 
Son = 2 — Intérêt = 2. 

SULTAN'S MAZE 
(Amsoft) en anglais 

Un jeu de labyrinthe qui a déjà 
tourné sur d'autres ordinateurs. 
Ici, il s'agit d'une version un peu 
améliorée et moins dépouillée. Ne 
vous laissez pas abuser par la 
mention 3D (3 dimensions) : vous 
vous déplacez dans un genre 
d'+iôpital (il s'agit d'un château, 
bien sûr) aux murs, sols et pla- 
fonds absolument neutres et lis- 
ses, et vous "voyez" la partie du 
labyrinthe dans laquelle vous 
vous trouvez. De temps à autre 
(mais vous perdez des points), 
vous pouvez consulter une vue 
d'avion, qui vous permet de vous 
situer. Il faut ramasser des pier- 
res précieuses et éviter des fan- 
tômes. Ce jeu souffre d'une cer- 
taine lenteur et est vite 
ennuyeux. Disons qu'il faut 
aimer... 

Graphisme = 2 — Animation = 2 
Son = 2 — Intérêt = 3. 
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EASI-AMSCALC (version 1.5) 
(AMSOFT) en anglais 

Tableur. On est impressionné par 
l'emballage, l'épaisseur de la 
notice, et par le prix. On s'attend 
à un petit VISICALC ou micro 
MULTIPLAN, cruelle désillu- 
sion... ! Très lourd à programmer, 
très lent à réagir (surtout en 
translation horizontale) et à l'af- 
fût de la moindre étourderie pour 
vider un tableau si laborieuse- 
ment rempli. Ajoutez à cela les 
fabulations qui se décalent tou- 
tes seules à l'édition, les BORDER 
qui clignotent, plus d'autres far- 
ces et attrapes. Que fait donc ce 
"logiciel" chez AMSOFT ? 
Notice = 4 (en anglais) — facilité = 
1 — efficacité =1 — performan- 
ces = 2 — intérêt = 1 . 
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AMLETTRES 
(AMSOFT) en français 

Traitement de texte. Première 
remarque, il est en français avec 
les caractères minuscules accen- 
tués. La notice est complète, 
mais il faut une bonne loupe pour 
la lire. Pour 1 50 francs, on ne 
peut espérer les mêmes possibi- 
lités que d'un traitement de texte 
à 3000 francs ; aussi, les auteurs 
ont fait une sélection très judi- 
cieuse des options proposées, 
c'est-à-dire l'indispensable, et 
même quelques petits luxes 
comme la justification à droite et 
un menu d'imprimante des plus 
copieux. Conçu pour une utilisa- 
tion épisodique et non profes- 
sionnelle, il est parfait pour rem- 
placer très avantageusement une 
machine à écrire à la maison, 
pour une lettre ou un rapport de 
cinq à six pages. 
Notice = 3 — facilité = 5 — eff ica- 
cité = 4 — performances = 3 
intérêt = 4. 



GESTION DE FICHIERS 
(CORE) en français 

Un emballage très triste, une 
notice copieuse, un prix bas qui 
inquiète, mais un produit en fait 
très correct et intelligemment 
conçu : clarté et facilité d'emploi 
avant tout. On l'a tout de suite 
"en main". Les maxima sont les 
suivants : nombre de fiches = 
200 (dans la pratique, c'est bien 
suffisant pour un même nom de 
fichier), nombre de rubriques = 
20, nombre de caractères par 
rubrique = 25 (plus le nom de la 
rubrique), capacité totale = envi- 
ron 20 000 caractères. Nous dis- 
posons des options habituelles, à 
savoir tri, recherche multi- 
critères, duplication de fiche, édi- 
tion sur imprimante, etc. Nous 
ajouterons une sage recomman- 
dation : lors de la saisie, ne lais- 
sez pas en blanc une de vos rubri- 
ques, mettez-y un caractère quel- 
conque (astérisque), sinon vous 
ne pourrez plus compléter cette 
fiche. 

Notice = 4 — facilité=5 — effi- 
cacité =3 — performances = 3 — 
intérêt = 4. 
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A LA VITRINE DU LIBRAIRE 



"TRUCS ET ASTUCES 
POUR LE CPC 464" 
Data Becker (Traduction Micro- 
Application) 
Prix : 149 F 

Vous avez acheté un CPC 464 ou 
vous allez le faire puisque vous 
lisez cette revue. Avec la 
machine, vous recevrez une 
notice, assez bien faite, qui vous 
permettra de commencer à pro- 
grammer. Pour aller plus loin et 
découvrir les secrets de votre 
CPC 464, vous aurez la possibi- 
lité d'acheter ce livre ; vous ne le 
regretterez pas. Il complète 
agréablement le manuel d'origine. 
Les diverses possibilités de la 
machine sont reprises et détail- 
lées. Le graphisme : créations de 
fenêtres, éditeur, couleurs, fonc- 
tions de tracé, redéfinition des 
caractères, organisation de la 
mémoire d'écran, n'auront plus 
de secret pour vous. De la même 
manière, vous apprendrez à maî- 
triser le son et ses instructions. 
La seconde partie de l'ouvrage 
est consacrée à une introduction 
au langage machine. Ce n'est pas 



MATHEMATIQUES SUR AMS- 
TRAD 

Enfin des utilitaires scolaires à la dis- 
position des "Amstradiens" ! 
Il s'agit d'un pack de 3 cassettes : 
FORMULAIRE, UTILITAIRES et 
EXERCICES DE MATHEMATIQUES, 
destinés principalement aux élèves 
de la seconde à la terminale déter- 
minés à profiter des avantages que 
leur offre l'ordinateur pour leurs étu- 
des... 

Le FORMULAIRE, par une animation 
quasi-constante et une présentation 
contrastée, témoigne d'un souci de 
mise en valeur des formules dans un 
cadre ordonné / clair et agréable, ce 
qui n'est pas négligeable quand on 
sait à quel point les formules utilisées 
en trigonométrie, pour les dérivées, 
les primitives et les nombres 



un cours sur la programmation 
détaillée du Z80 (le microproces- 
seur qui équipe le 464), mais une 
bonne approche. Il vous sera 
alors possible d'entreprendre un 
voyage au sein de la mémoire de 
votre CPC 464. Un mini-moniteur 
est décrit pour faciliter vos inves- 




tigations. Le livre vous expliquera 
comment une ligne Basic est 
implantée en mémoire, et 
comment sont codés les fameux 
"TOKENS" et les variables. 
Une des parties les plus intéres- 
santes du livre est consacrée aux 
routines utiles de la ROM. Points 
d'entrée, contenu des registres 
au moment de l'appel de la rou- 
tine, valeurs en sortie, etc. Plus 
d'excuses pour ne pas créer de 
bons programmes en langage 
machine en utilisant les ressour- 
ces de la ROM : lecture des joy- 
sticks, scrolling, clignotement, 
saisie du clavier, gestion du 
curseur. 

Vitesse améliorée, précision de 
calcul, programmes de tri voisi- 
nent avec des utilitaires tels que : 
échange de données entre 
AMSTRAD et COMMODORE, 
buffer imprimante, etc. Tout 
contribue à tirer le meilleur parti 
de votre machine. Des embryons 
de programmes utilisateurs for- 
ment le dernier chapitre de cet 
ouvrage qui trouvera certaine- 
ment sa place à côté de votre 
ordinateur favori. 



complexes sont d'ordinaire peu 
agréables à apprendre... 
Les UTILITAIRES s'attachent princi- 
palement à soulager l'utilisateur de 
calculs souvent longs et fastidieux 
qu'une calculatrice, même program- 
mable, ne peut résoudre. Bénéficiant 
d'un accès rapide, l'utilisateur 
pourra s'attacher non seulement à la 
résolution d'équations, d'inéqua- 
tions et de systèmes de degré x à n 
inconnues, mais encore au calcul 
matriciel, aux opérations sur les 
nombres complexes ou bien au cal- 
cul barycentrique, etc. Ils sont utiles 
de la seconde aux premières années 
de l'enseignement supérieur. 
Les EXERCICES, indispensables pour 
compléter la compréhension acquise 
en cours, sont classés par thèmes et 
par niveaux de difficulté. Là encore, 
les possibilités de rapidité et d'effi- 



cacité de l'ordinateur sont bien 
exploitées, facilitées par la redéfini- 
tion de nombreux caractères mathé- 
matiques. Chaque énoncé est fort 
heureusement accompagné en 
option d'un corrigé, ce qui permet à 
l'étudiant de comprendre ses erreurs 
ou de compléter ses connaissances. 
L'ensemble présente donc de nom- 
breux aspects positifs ; mis en œuvre 
avec un souci sérieux de recherche 
pédagogique, ces logiciels devraient 
permettre à beaucoup de faire de 
réels progrès en mathématiques. 
A quand la physique ? 

L'unité : 150 F 
Le pack : 390 F 
Distribution : 
LÔISITECH 
83, av. Faidherbe 
93106 Montreuil 
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Avis à tous les chasseurs de 
flag-ships, de gloutons et de 
space-invaders : Montez sur la 
plus haute marche du podium en 
nous envoyant les high-scores 
réalisés sur vos jeux d'arcade pré- 
férés. Votre nom figurera alors 
dans le tableau d'honneur de 
CPC. 

Il suffit pour cela de nous envoyer 
le nom du programme, votre 
nom, votre score et une photo- 
graphie d'écran en noir et blanc 
ou en couleur permettant d'au- 
thentifier votre performance. 
Mais attention, tout ceci n'est 
valable que pour les programmes 
pour lesquels on ne peut pas 
régler les paramètres de jeu ni 
changer de niveau. Nous avons 
un jury constitué de jeunes Ams- 
tradmaniaques qui se chargeront 
de détecter et d'éliminer toute 
tentative de tricherie. Alors, tous 
à vos joysticks et bonne chance ! 



JEU 


SCORE 


AUTEUR 


HARRIER ATTACK 


57140 


Eric VIEL 


ELECTRO FREDDY 


1210 


Sébastien LEJEUNE 


ROLAND IN THE 


865144 


Stéphane CLOIREC 


CAVES 






HUNCHBACK 


101700 


Stéphane PRUNIERE 


GALAXIA 


3720 


Yannick BOUREE 


FRUITEY FRANCK 


11320 


Eric FAUREZ 


(slow) 






MANIC MINER 


15784 


Stéphane CLOIREC 


SPACE HAWKS 


31500 


Maxime GAUDIN 


SPANNERMAN 


27100 


Marie-Christine VIEL 


3D-INVADERS 


2189 


Stéphane PRUNIERE 


FIRE-ANT 


14900 


Yannick TERTRE 


DEFEND OR DIE 


17725 


Sandrine BONOMO 


LASER WARP 


15360 


Nicolas CLOAREC 


SURVIVOR 


57500 


Claude BLANCHARD 


ROLAND GOES 


101L15p 


Philippe ANGEARD 


DIGGING 






PINBALL WIZARD 


7970 


Matthieu LEJEUNE 


(vitesse 5) 






ALIEN BREAK-IN 


21700 


Kevin PI ERRAT 



LE MAIMOIR DE 



En quête d'une aventure, arri- 
vez dans le pays de Dragon— 
naze qui domine une solide for- 
teresse. Le Baron de ce territoire 
a jeté depuis bien longtemps un 
maléfice sur la région. De plus, il 
retient sa fille, la belle Hélène, pri- 
sonnière dans son donjon, la Tour 
Noire. 



De nombreux princes du royaume 
sont venus lui demander sa main, 
mais aucun n'a pu ressortir vivant 
du château. En apprenant cela, 
vous décidez, vous aussi, de ten- 
ter votre chance. 
Pour obtenir l'accès à la Tour 
Noire et délivrer la Princesse, il 
vous faudra réunir un diamant, un 



lingot, un coffre, un sceptre et 
une couronne, ainsi que tuer le 
Dragon (mais attention ! ses 
coups sont mortels I). 
BONNE CHANCE ! 



Pascal et Laurent KERLOCH 
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* LE nanoir * 
t t 

* DE * 

* * 
t ROCHEBRUNE t 
t t 
*********** 

par Laurent 

et Pascal Kerloch 



Copyright 1985 
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30 ' 

40 ' 

50 ' 

60 ' 

70 ' 

80 ' 

90 ' 

100 ' 

110 ' 

120 ' 

130 ' 

140 ' 

150 ' 

160 ' 

170 ' 

180 ' **************** 

190 ' * PRESENTATION * 

200 ' m************ 

210 MODE l: BORDER 1 

220 INK 0,0:INK 1,18:INK 2,6:INK 3,24 

230 PEN 2: LOCATE 16,5:PRINT'Le Hanoir" 

240 LOCATE 20, 8: PRINT" de" 

250 LOCATE 16,ll:PRINT"Rochebrune" 

260 PEN 3 

21D IOCATE_ li,6iPRINI SÏRLNG$(9,CHR«(20B1) 

280 LOCATE 20,9:PRINT STRINGt(2,CHRM208)l 

290 LOCATE 16,12:PRINT STRINGf(10,CHRt(2081) 

300 PEN l:LOCATE 20,15:PRINT"par Pascal" 

310 PEN 1ILOCATE 20,17:PRINT"et Laurent Kerloch" 

320 ENV 1,100,-0.5,20 

330 ENV 2,50,-0.5,10 

340 SOUND 1,239,60,12,1:SOI1ND 2,478,60,12,1 

350 SOUND 1,319,30,12,2:SOUND 2,638,30,12,2 

360 SOUND 1,319,30,12,2:SOUND 2,638,30,12,2 

370 SOUND l,239,60,12,l:SOUND 2,478,60,12,1 

380 SOUND l,190,60,12,l:SOUND 2,379,60,12,1 

390 SOUND l,169,60,12,l:SOUND 2,338,60,12,1 

400 SOUND 1,190,30, 12, 2;S0UND 2,379,30,12,1 

410 SOUND 1,190,30,12,2:S0UND 2,379,30,12,1 

420 SOUND l,169,60,12,l:SOUND 2,338,60,12,1 

430 SOUND 1,190,60,12,1 ISOUND 2,379,60,12,1 

440 SOUND 1,169, 120, 12, .: SOUND 2,338,120,12,1 

450 FOR ATT=1 TO 3000:NEXT ATT 

460 ' ****************** 

470 ' t INITIALISATION * 

480 ' ****************** 

490 «ODE 1 

500 ROUTI = l:PARAH=l:DIH ARH*(12):DIr! TRESM12) 

510 DATA Diaiant, Lingot, Coffre, Sceptre, Couronne, Da 

gue, Arc, Hache, Armure, Lance, Epee 

520 FOR A=8 TO 12IREAD A*:TRES*(A)=A$:NEXT A:FOR A 

=1 TO 12 STEP 2;READ AJ;ARH*(A)=A$:ARN«(A+l)=At:NE 

XT A 

530 CLSlDIH AR11(120):DI11 TRES (12):ïIMDO¥ «1,28,40 

,l,2:»INDO¥ #2,28,40,4, 17iïINDOW #3,28,40,19,25:WI 

NDOÏ tO,l,26,4,25:»INDO» I4,1,3,1,2:ÏIND0Ï #5,5,26 

,1,2 

540 INK O.OlINK 1,15:INK 2,6:1NK 3,18;F0R A=0 TO 5 

:PAPER #A,0:NEXT A:PEN I0,1:PEN #1,1:PEN »2,3:PEN 

t3,2:PEN #4,3:PEN 15,2 

550 BORDER 3 

560 PLOT 50,400,2:DRA«R 0,-34,2:DRAÏR -50,0,2:PLOT 

R 0,-12,2:DRA¥R 418,0,2:DRAÏR 0,-354, 2 :PLOTR 12,0, 

2:DRAKR 0,114,2:DRA«R 210,0,2:PLOTR 0,12,2:DRAIffi - 



210,0,2;DRAÏR 0,228,2:DRAWR 210,0,2;PLOTR 0,12,2:D 

RAIR -210,0,2:DRA'«'R 0,34,2;PLOTR -12,0,2:DRA«R 0,- 

34,2 

570 DRABR -358,0,2 : DRfllilR 0,34,2 

580 PRINT" Des rumeurs circulent quidisent que le 

terrible Baron de Dragonnaze garde sa fille, la 

Princesse Hélène, dans le Donjon de son Chatea 
u, la Tour Noire * 

590 PRINT" Vous ave; décide de la délivrer et vo 
us vous dirigez vers le sombre Hanoi r de Ro 
chebrune.":PRINT 

600 IF INKEY*0"" THEN 610 ELSE 600 
610 CLS:PRINT" Le Sphinx qui en garde l'entrée v 
ous énonce vos droits et obligations :":PRINT 
620 PRINT" Vous devez rassembler 5 Trésors differ 
ents et tuerie Hechant Baron qui des votre arrive 
e se letaior- phose en un Terrifiant Dragon." 
630 PRlNT:PRINT"Hais vous êtes bien decidea tenter 

votre chance et vous pénétrez dans le Cha-teau. 
Le pont-îevis se referme derrière vous.":PRINT 
640 IF INKEYJ="" THEH 640 ELSE CLS 

650 ' m***************************** 

660 ' t TIRAGE DE LA FORCE DE DEPART * 

670 ' »«««*m****m****ttt*m*t 

6B0 PRINT 11, "Votre Force" 

690 FRC=INT!RM3(1)*10H2 

700 IF FRC=2 THEN PRINT"Vous n'avez pas de chance 

du tout, l'ordinateur ne vous attribut que 2 poin 

tsc'e valeur" 

710 IF FRCÎ-2 AND FRC<=5 THEH PRINT'Vous n'avez pas 

beaucoup" :PRINT"de chance, ]'ordinateur":PRINT"vo 
us donne "FRG;" points de";PRINT"valeur" 
720 .IF FRC>5 AND FRC<10 THEN PRINÎ"Vous avez de la 

chance, l'ordinateur vous donne ";FRC;" point 
s de valeur" 
730 IF FRC>=10 AND FRC<=!2 THEN PRINT'L'ordinateur 

vous apprécie"; "vrai ment beaucoup, il vous";"donn 
e fl FRC"pC'ints de valeur" 
740 PRINT 

750 ' ************* 
760 ' * RENCONTRE * 
770 ' ************* 
780 FOR AîT=0 TO 3000INEXT ATT: CLS 
790 CLS #5: CLS 14 

800 LOCATE #1,1, 2IPRINT #1," "FRC 
810 GOSUB 8B0 
820 IF FRC<0 THEN 3900 
830 RC=INT1RND( 11*1001+1 
840 IF RCO40 THEN 1050 
850 IF RC<=65 THEN 2100 
360 IF RC<=90 THEN 3130 
370 IF RC<=100 THEN 2380 
880 ' TABLEAU DES ARHES 
890 LOCATE 12,1,1 
900 PRINTI2, "Armes :":PRINT#2,"" 
910 FOR D=l T0 120 
920 IF ARH(D)=0 THEN 950 

930 IF ARH(D)=12 THEN PRINT #2, "Epee de Feu":G0T0 
950 

940 PRINT #2,ARH«(ARH(D)):TAB(9)ARH1D) 
950 NEXT D 

960 ' TABLEAU DES TRESORS 
970 LOCATE #3,1,1 

980 P RINTI3. "Trésors :":PRINT#3," 
990 FOR D=l T0 6 
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000 IF TRES(D!=0 THEN 1020 

010 PRINI *3,ÏRE3«(TRESÎD)):TAB(9)TRES(D) 

020 NEXT D 

030 IF RQBTI=6 AND DRAGONS THEN 4090 

040 RETURK 

050 ' aaaaaaaaaaaaata 

060 ' * RENCONTRE AVEC .UN MONSTRE * 

070 ' «aaàamaaaaaaaa 

080 ' ÎÏFE DE MONSTRE 

090 TDH=INT(RND( 11*1001+1 

100 IF TDM<=2 THEN M*="e Licorne" :B=5:GOIO 1300 

110 IF ÏÏH<=5 THEN «=" Centaure".B=8:G0T0 1300 

120 IF TDH<=8 THEN Mt=" Spectre":B=4;GOTO 1300 

130 IF TDM<=10 THEN MS=" Gobel in" :B=3:GOTO 1300 

140 IF TDN<=13 THEN Mt=" Squelette" ;B=4:GOTO 1300 

150 IF ÏDM<=16 THEN H*=*6 Sorciere":B=5:GOÎO 1300 

160 IF IDH<=M THEN M»=" Sphins" :B=6 :GQTO 1300 

170 IF ÎDH<=2i THEN MS="e Chi«ere":B=8:GOTO 1300 

180 IF TDM<=24 THEN «=■ Ti tan":B=10:GOTO 1300 

190 IF TDH<=27 THEN »$=• Delon" :B=6: GOTO 1300 

200 IF ÎDM<=30 THEN M»=" Fan t oie " :B=è: GOTO 1300 

210 IF IDB<=32 THEN NS="e Moiie':B=5:GOTO 1300 

220 IF TDM<=35 THEN «=" Diable" ;B=5:GOTO 1300 

230 IF ÎDM<=38 THEN «».=" Gr if fon" ;B=6:G0TO 1300 

240 IF TDM047 THEN H*=" Cobra" :B=5'.GOTO 1300 

250 IF ÎDM<=57 THEN M*=" Troll" :B=9:GOT0 1300 

260 IF TDMO66 THEN M*="e Goule" :B=2; GOTO 1300 

270 IF TDK<=76 THEN MS=" Vaipire";B=6:GOÎO 1300 

280 IF TDM<=85 THEN Mt=" Gnome" ;B=5;G0TO 1300' 

290 IF TDH<=100 THEN Mt=" Balrog":B=8:GOTO 1300 

300 ' FORCE DU NONSTRE 

310 FDM=Bt!INT(RNDi 11*311 

320 PRINT"Vou5 êtes attaque par':PRINT"un"(I$" de 

orce'FDK 

330 PRINT t5,"Monstre :" 

340 PRINT *5,"Un"M«" Force'FDM 

350 PRINT 

360 SOUND 1,319, 16, 5:SOUND 1 ,239, 16,5 ISOUND 1,253 

S6,5;SOUND 1,284,16,5 

370 SOUND 1,253, 48, 5ISOUND 1,239, 16, 5:SOUND 1,213 

48,5;S0UHD 1,190,16,5 

380 SOUND 1,213, 16, 5ISOUND 1 ,239, 16,5 ISOUHD 1,253 

16,5;SOUND 1,239,32,5 

390 SOUND 1,253, 16, 5:SOUND 1,284, 48, 5:SOUKD 1,319 

48,5 

400 rem ********** 
410 rem * combat * 
420 rem atâata 

430 ISPUT'VohIsj-vbus conbattre ce monstre (O/N) 

" .DESIRt 

440 IF DESIR»="0" OR DESIR»="o" THEN 1460 

450 IF DESIR»="N" OR DESIR*="n" THEN 2050 ELSE 14 

;0 

460 ' a»««a*»tt«*tt 

470 ' t CHOIX DE L'ARME * 

480 ' aaaaaaaaa* 

490 PRINT 

500 PRINT "Avec quelle arae voulez- voôs coabatt 

e 7MHPUT " (Si vous n'avez pas d'arme ta 

ez P;VARU 

510 FOR V=0 TO 120 

520 IF ARMIV)=VARM OR VARM=0 THEN ABUS=0 : GOTO 1 
570 

530 NEXT V 

540 PRINT'Vous ne possédez pas cette ine ":ABUS= 
ABUS+1 

550 IF ABUS^IO THEN VARM=0:GOTO 1570 

560 GOTO 1460 

570 ' «aaaaaaaaa* 

580 ' * CALCUL DU COMBAT * 

aaaaaaaaaa 



1590 ' 
1600 PRINT 

1610 PRINT"Pour engager le combat tapez sur une 
touche" :PRINT 
1620 CA=CA+1 

1630 IF INKEYtO" THEN 1650 
1640 GOTO 1620 
1650 VCOMB=FDH-VARH 
1660 IF VARM5FDM THEN VCOMB=0 
1670 PRINTLe combat est de force'VGOMB 
1680 LOCATE #4,!,!:PRINT«4,"Des" 
1690 FOR A=l TO 20:S0UND 1,60,1,2 
1700 0ES=INT(RNB!l)*10)+2 
1710 DES*=(RIGHTXSÎRt(DES!,2)l 
1720 LQCAÎE t4,l,2:PRINT I4,DES« 
1730 FOR B=l T0 lOOlNEXT B 
1740 NEXT A'.SOUND 1,119,5,2 
1750 IF DESCVCOMB THEN 1910 
1760 IF DESH'COMB THEN 1780 
1770 IF DES=VCOHB THEN 1850 

17B0 ' aaaa* 

1790 ' * GAGNE * 

iboo ' mmm 

1310 FSC=FRC+VCOHB 

1820 PR!NT"Vous avez gagne, les des ont fait "DES 

1830 PRINT 

1840 GOTO 750 

1850 ' aaaaaaaaa* 

1860 ' * LE MONSTRE FUIT * 

1870 ' aaaaaaaaa* 

1330 PRINT'Le lonstre fuit, les des ont fait "DES 
1890 PRINT 
1900 GOTO 750 

1910 ' aaaa* 

1920 ' * PERDU * 

1930 ' ********* 

1940 FRC=FRC-VCOMB 

1950 PRINT'Vous avez perdu, les des ont fait "DES 

1960 PRINT 

1970 IF VARM=0 THEN 750 
1980 FOR D=l TO 120 
1990 IF ARMÎD10VARM THEN NEXT D 
,2000 ARM(D)=0 
2010 NbAr»es=NbArmes-l 
2020 CLS #2 
2030 GOSUB 880 
2040 GOTO 750 

2050 ' ********************* 
2060 ' t RETRAIT DE POINTS * 
2070 ' ********************* 
2080 FRC=FRC-FDM 
2090 GOTO 750 

2100 ' **************************** 
2110 ' * RENCONTRE AVEC UN TRESOR * 
2120 ' **************************** 
2130 VTRES=INT(RND(1)*5)+B 

2140 IF RIGHT»(TRESKVTRES),2)="ne' THEN Tl="e " E 
LSE T»=" • 

2150 PRINT'Vous avez trouve un'TCPRINT TRES*(VTRE 
S)" de valeur'VTRES 
2160 PRINT 

2170 SOUND l,71,24,5:SOUND 1,60,48,5:SOUND 1,53,24 
,5:SOUND 1,47,98,5 

2180 SOUND l,53,24,5:SOUND 1,60,24,5:SOUND 1,53,24 
,5:SOUND 1,60,24,5 

2190 SOUND l,63,24,5;SOUND 1,71,120,5 
2200 ' ********************* 
2210 ' * ACHAT DU TRESOR ? * 
2220 ' ********************* 
2230 IF 80UTI=6 THEN PHINT"Mais vous avez déjà les 



5 tresars" :PfiINT:50ÎO 750 
2240 FOR D=J TO 5 

2250 IF IBES(D)=VTfiES THEN PRINT"Hais vous possède 
i déjà uniresor de cette valeur":P8UIÎ:G0T0 750 
2240 NEÂÎ D 

2270 IF FRCCvTRES THEN PSlNT'Hais ce trésor est tr 
oc cher pour votre bourse" IPRINTIGOTO 750 
2280 INPUT "Voulez-vous l'acheter 1 (O/N) ";DESI 
R! 

2290 IF DESIRM'O" OR DESIR*="o" THEN 2310 
2300 IF DESIB»="N" OR DESIR$="n" THEH 750 ELSE 223 

2310 ' xxxxmxxxxxtxxxxxMxxmxxitxx 

2320 ' * CALCUL DE L'ACHAT DU TRESOR * 

2330 ' xnmtmnnmttuttmnm 

2340 TRES ! ROUI I)=VTRES 

2350 80UTI=H0UÎI+1 

2360 FRO=FRC-VÎRES 

2370 GOTO 750 

2380 ' tttiXXXXXXXXXttiXl.ttXXXXtXXtX 

239Ô ' * RENCONTRE AVEC LE SORCIER * 

2400 •' unnunutntutttMt&tu 

2410 PRINT D Vous rencontrez le sorcisret il vous pr- 
opose son aide en vous offrant un sortilège," 
2420 GOSUB 2490 

2430 SOUND 1 ,239, 64. SlSOUND 1,284. 32, 5: SOUND 1,284 
,48,5: SOUND 1,301,16,5 

244C SOUND 1,284, 32, SlSOUND 1 . 253 . 64 , 5 : SOUND 1 ,301 
,32, 51 SOUND 1,379,64,5 
2450 GOSUB 2490 

2460 SOUND 1 ,239, 48, 5; SOUND 1 ,253, 16, SlSOUND 1 ,284 
,32,5lSCUND 1,301,48,5 

2470 SOUND 1,338, 16, SlSOUND 1,301, 32. SlSOUND 1,284 
,128,5 

24R0 GOTO 2530 

2490 SOUND 1,284,32,51 SOUND 1,239. 64. 5 1 SOUND 1,21 
3, 32, SlSOUND 1,190,43,5 

2500 SOUND 1,179, 16, SlSOUND 1,190, 32, SlSOUND 1,213 
,44,5 : SOUND 1.253.32,5 

2510 SOUND 1,319, 48. 5: SOUND S ,284.16,5;S0UND 1,253 
,32,5 

2520 RETURN 

2530 ' ««««»»«» 
2540 ' t CONSULTATION « 

2550 ' tttttnmntxxx 

2560 INPUT'Acceptez-vous ? (0/N) ",REPf 

2370 IF REPI="0" 08 REPf= , o" THEN 2600 

2580 IF REPÎ="N" OR REPS="n" THEN FOR ATT=0 TO 150 

OINEXT ATT ICLS; GOTO 1050 

2590 GOTO 2560 

2600 ' zmtttniht 

2610 ' t SORTILEGE t 

2620 ' ititmamt 

2630 S0RT=INT(RNDii)tl00)tl 
2640 IF SOET<=15 THEN 2730 
2650 IF SORTM5 AND SORT<=45 THEN 2790 
2640 IF SORTM5 AND S0RT<=70 THEN 2830 
26*0 IF SORT>70 AND SORÎ<=75 THEN 2940 
2680 IF SORT>75 AND SORT<=100 THEN 2690 
2690 800n=R0UTI-llIF ROUTI=0 THEN ROUT!=l;GOTO 26 
30 

2700 TRES!ROUTI!=0 

2710 PRINTlPRINT" Le Sorcier vous retire un Trésor 
."ICLS «ISOSUB 880 
' 2720 GOTO 2960 
2733 ARS(PARAMI=12 
2740 PARA«=PARAM-H 
2750 NbAr«e5=NbArnes+l 
2760 GOSUB 880 

2770 ÏF NbArses<13 THEN PRINTlPRINT" Le Sorcier v 
ous fait donde l'Epee de feu grâce a laquelle voîj 



*.& 



s pourrez tuerie Dragon" ELSE 2960 

2730 GOTO 2960 

2790 FRC=FRC+12 

2800 PRINTlPRINT" Le Sorcier vous offre" unefiole q 

ui contient un ele-xir. Grâce a cette potion vous 

gagnez 12 points de Force." 

2810 LOCATE tl,l,2:PRINT 11," "FRC 

2820 GOTO 2960 

2830 PHÏNTlPRIKT-Le Sorcier vous offre deuxarnes d 

e votre cho!s":PR!NT 

2840 FOR E=l TO 2 

2850 IF ptoies) =12 THEN PRINT" Hais vous possédez 

déjà 12 aries.";G0T0 2960 

2860 INPUT" Une arie de quelle Puis-sance desirez 
-vous ?",VARH 

2870 IF VAHÎK2 0c VARHM1 THEN 2860 
2880 ARS(PARAN!=VARt! 
2890 PARAM=PARAM+! 
2900 NbAr«es=NbAraes+i 
2910 SOSUB BSOlPRINT 
2920 NHT E 
2930 GOTO 2960 

2940 IF DRAG0N=1 THEN 2600 ELSE PRINTlPRINT'Le Sor 
cler tue le Dragon avotre place, vous n'aurez donc 

pas a !e_laiEe^— 

2950 DRAGDN=1 

2940 ' mxxxtmxxtxxxttxxmxt 

2970 ' t COMBAT MONSTRE/DRAGON * 

2980 ■ tmnttmtmttttwtti 

2990 FOR ATT=0 ÎO 3000INE7.T ATTlCLS 

3000 IF DRAG0N=1 THEN 1050 

3010 I=INÏ(RND(l)*2i+i 

3020 IF 1=1 THEN 1050 

3030 EN» 1.6,4,5,9,-2,4,13,7,6,8,-1,5,3,7,8 

3040 ENV 2,12,-2,6.13,5,6,8,-1,5,5,7,7,8,-4,9 

3050 ENV 3,3,3,7,6,1,8,12,-3,4,7,3,3,3,-2,2 

3060 ENT 1,4,-1,8,5,7,9,4,6,7,5,-5,9,15,9,8 

3070 ENT 2,5,4,7,12,-1,9,6,1,8,8,-2,9,5,1,7 

3080 ENT 3,4,-1,8,6,-2,9,12,3,5,12,-1,4,5,1,3 

3090 SOUND 1,478,600,7,1,1,23 

3100 SOUND 2,598.580.6,2,2,11 

3110 SOUND 4,898,685,8,3,3,31 

3120 GOTO 3400 

3130 ' «***«««««««»««» 

3140 ' t RENCONTRE AVEC UNE ARME t 

3158 ' ««*n«m»œœw»M:î 

3:60 VARN=ÎNT(RND(l!tlO)+2 

3170 IF BIGHT«(AfflB(VARN),l)=V THEN Tt="e " ELSE 
îi=" " 

3180 PRINT"Vous avez trouve un"T*:PRINT ARNKVARPI 
!" de valeur"VARB 
3190 PRINT 

3200 SOUND 1,478, 24, SlSOUND 1 ,638, 12 ,5 : SOUND 1,478 
,12,5:S0UND 1,426,48,5 

3210 SOUND li379,24,5:SOUND 1 ,478. 12. SlSOUND 1,379 
,12, SlSOUND 1,319,48,5 

3220 SOUND 1 ,284, 12, SlSOUND 1 ,319, 12, SlSOUND 1,284 
,12,5lSOUND 1,253,12,5 
■3230 SOUND 1,239,48.5 

3240 ' mitmttttttttttm 

3250 ' * ACHAT DE L'ARHE ? t 

3260 ' »««*»«««»»»« 

3270 IF FRC<VAR« THEN PRINT"Vous ne pouvez pas ach 

etercette ane" IPRINTIGOTO 750 

3280 IF NbAr«es>=12 THEN PRINPVous avez deia 12 a 

rues'IPRINTlGOTO 750 

3290 INPUT"Vou!ez-vous l'acheter ? IO/N) "1DESIR 

S 

3300 IF DESIRS="0" OR DESIRS="o" THEN 3320 

3310 IF DESIRî="N" OR DESIR«=V THEN 750 ELSE 329 
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3320 ' tttmntm mtnmntnmt 

3330 ' * CALCUL DE L'ACHAT DE L'ARME * 

3340 ' mtmntmtmtmtnntntt 

3353 Hffl!PflSfiKS=ïflffl 

33 iO FAP.ftM=FARAM+i 
3370 NbAr»es=NbAf«es+! 
3380 FRC=FRC-VARM 
3390 GOÏO 750 

3400 ' tnatnnntmnnunt 

3410 ' * COMBAT AVEC LE DRAGON t 

3420 ' ttttttnttttmttttmttt 

3430 PRINT" Un monstrueux Dragon de force 12 se d 
resse devant vous ; sa bouche crache des Flammes 
,":PRÏNT:PRINT #5, "MONSTRE :";PRINT 15, "Un Dragon 
de Force 12" 

3440 IflPUFVoulei-voos le combattre ";REPt 
3450 IF REP(="N" OR REP»="n" THEN 3900 
3460 IF REPS="0" OR REPS="o" THEN 3480 
3470 GOTO 3440 

3480 ' ttttutnmttntn 

3490 ' t CHOIX DE L'ARME * 

3500 ' ptntiuntmtnn 

3510 PRINTlPRIIIT "Avec quelle arme voulez- vous c 

osbattre ?":INPUT " î Si vous n'avez pas d'à 

ne tapez ! H ;VARM 

3520 FOR V=0 TO 120 

3530 IF ARM!V!=VARM OR VARM=0 THEN ABUS=0 ; GOTO 3 

580 

3540 NEXÎ V 

3550 PRINT'Vous ne possédez pas cette ane ";AB'JS= 

ABUS+i 

3560 IF ABUS=10 THEN VAR«=0:GOTO 3580 

3570 GOTO 3480 

3580 ' nmmmmnttn 

3590 ' * CALCUL DU COMBAT I 

3600 ' »««*«««*»«« 

3610 PRINT:PRINT"Pour engager le combat tapez s 

uf une touche" :PRINT 

3620 CA=CA+1 

3630 IF INKEYtO" THEN 3650 

3640 GOTO 3620 

3650 VCQMBM2-VARK 

3660 IF VARMM2 THEN VCOMB=0 

3670 PRINT"Le combat est de force'VCOMB 

3680 LOCATE #4,1,1 IPRINIM, "Des" 

3690 FOR A=l TO 20IS0UND 1,60,1,2 

3700 DES=INT(RNDIl!*10)+2 

3710 DESt=(RIGHTt!STRS(DES),2)) 

3720 LOCATE »4,1,2;PRINT t4,DES* 

3730 FOR B=l T0 lOOlNEXT B 

3740 NEXT AlSOUND 1,119,5,2 

3750 IF DES<VCOMB THEN 3900 

3760 !F DESÏ-VCOMB THEN 3830 

3770 IF DES=VCOMB THEN 3780 

3780 ' »»«««» 

3790 ' t EX EQUO « 

3800 ' mtiîttttt 

3810 PRINT" Vous n'avez pas feussi a terrasser ce 

Dragon car les des ont fait":DES:"Vous allez de 

nouveau lui être confronte" 

3820 GOTO 3440 

3830 ' *«*«« 

3840 ' » GAGNE * 

3850 ' tmtmt 

3860 DRAGON=l!CLS 15 : FRC=FRC+VCOHB ; LOCATE ll,l,2:P 

RINTI1," "FRC 

3870 PRlNT'Vous êtes sorti victorieuse ce terribl 

e combat " 

3880 FOR B=! T0 2000:NEÎT B 

3890 CLS1IF ROUTI=6 THEN 4090 ELSE 2100 

3900 ' nnntt 



3910 ' (MORT * 

3920 ' nntm 

3930 GLS: PRINT" Helas, les monstres du Manoir d 
e Rochebrune ont eu raison de votre courageel de v 
otre témérité, vousempechant ainsi de lener a bie 
n votre entreprise," 
3940 PRINTlPRINT" Vous n'avez pas réussi a tuer le 

Père de la Belle Hélène prisonnière de la Tour 
Noire, et a reunir les 5 Trésors du Château," 
3950 PRINTlPRINT" D'autres Chevaliers vont essayer 

de délivrer la Princesse mais votre prou-esse 
restera célèbre dans les villages de ce triste pay 
s." iPEINT 
3960 GOSBB 4050 

3970 SOUND 1,253, 24, 5 (SOUND 1,284, 24, 5:SOUND 1,253 
,120,5 

3980 GOSUB 4050 

3990 SOUND 1,253, 24, 5: SOUND 1 , 239 , 24 , 5 : SOUND 1,213 
,120,5;SOUND 1,190,24,5 

4000 SOUND 1,179, 48, 5;SOUND 1 , 190.24 ,5 {SOUND 1,213 
,48,5;S0UHD 1,239,24,5 
4010 SOUND 1,253,120,5 
4020 GOSUB 4050 

4030 SOUND 1,239, 24, 5;S0UND 1,253, 24. SlSOUND 1,284 
,96,5 
4040 END 

4050 SOUND 1,284, 24, 5:SOUND 1,239, 48, SlSOUND 1,284 
,24,5lSOUND 1,379,48,5 

4060 SOUND 1,284, 24, SlSOUND 1 ,239.120,5;SOUND 1,21 
3,24,5;S0UND 1,190,24,5 

4070 SOUND 1,213, 24, 5;S0UND 1,239, 24, 5ISOUND 1,253 
,24,5 

4080 RETURN 
4090 ' ««mm 
4100 ' * GLOIRE t 
4110 ' ttUtttttt 

4120 CLS;PRINT" Vous avez vaincu le Baronde Rocheb 
rune et réuni les5 Trésors, ce qui vdus donne 1 
'accès a la ÎDur Noire dans laquelle vous atten 
d la Belle Hélène. ":PRINT 
4130 IF 1NKEY!=" - THEN 4130 &SE CLS 
4140 PRINT" La Mort du Dragon marque la fin du mal 
eflce que le Baron avait jeté sur ce pays :':PRI 
NT 

4150 PRINT"Un vent violent chasse lesnuages noirs 
qui s'etaientamonceles et découvre un ciel d'azur 
.":PEINT 

4160 PRINT" Apres votre départ, les villageois vi 
rent le Cha- teau s'embraser et quand la fumée se 

dissipa, il nerestait plus pierre sur pierre. P 
endant des siècles rien ne poussa en ces lieux." 
4170 PEINT 
4180 ENV 1,15,-1,5 

4190 SOUND 1,478,32,15,1,'SOUND 1,358,32,15,1 
4200 SOUND l,358,16,15,l:SOUND 1,319,16,15,1 
4210 SOUND l,284,32,15,l:SOUND 1 ,358,32,15,1 
4220 SOUND 1,239,64,15,1 ISOUND 1,284,48,15,1 
4230 SOUND l,2B4,16,15,l:SOUND 1,268,32,15,1 
4240 SOUND l,239.16,15,l:SOUND 1,268,16,15,1 
4250 SOUND l,2B4,16,15,l:SOUND 1,268,16,15,1 
4260 SOUND 1, 239 ,32, 15-, l: SOUND 1,319,16,15,1 
4270 SOUND l,358,16,15,l:SOUND 1,319,16,15,1 
4280 SOUND l,284,16,15,l:SOUND 1,319,32,15,1 
4290 SOUND 1,478,32,15,1 ISOUND 1,358,32,15,1 
4300 SOUND l,358,16,15,l:SOUND 1,319,16,15,1 
4310 SOUND l,284,32,15,l:SOUND 1,358,32,15,1 
4320 SOUND l,239,64,15,l:SOUND 1,284,48,15,1 
4330 SOUND i ,234 , lé, 15 , 1 : SOUND 1,268,16,15,1 
4340 SOUND !,239,16,15,l:SOUND 1,284,16,15,1 
4350 SOUND 1 ,268, 16, 15, ! ISOUND 1,319,48,15,1 
4360 SOUND l,358,16,15,l:SOUND 1,358,96,15,1 
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LABELMATIC 



Le rôle spécifique de ce pro- 
gramme de "qualité commer- 
ciale" est d'imprimer des adres- 
ses sur des étiquettes adhésives 
en continu, pour envois en nom- 
bre ("MAILING"). Il possède tou- 
tes les fonctions d'un gestion- 
naire de fichiers classique, à 
savoir : mise à jour, recherche, tri, 
etc. Le fait qu'il soit 1 00 % Basic 
ne nuit pas à la rapidité qui 
demeure plus que suffisante. 
Il dispose en outre des caractè- 
res AZERTY accentués et de 
sécurités anti-plantage afin d'être 
confié à une personne sans for- 
mation informatique (vérifié). 
Côté imprimante, il faut un 
modèle 80 colonnes de marque 
quelconque chargé avec des éti- 
quettes en continu. Deux étiquet- 
tes par rangée de format norma- 
lisé 89 x 36, 1 02 x 36 ou 1 07 x 
36 mm. Ce format importe peu 
car le centrage de chaque rubri- 
que est automatique. Pour fixer 
les idées, disons le prix de revient 
moyen d'une étiquette adhésive 
est de l'ordre de 5 à 8 centimes 
TTC. 



LE PROGRAMME 

Ne sursautez pas à la vue de cer- 
tains caractères bizarres au sein 
de certains mots ; ils donneront 
à l'écran et sur imprimante des 
caractères accentués a 

commercial = à ; anti-slash = ç ; 
crochet ouvert + SHIFT (accol- 
lade ouverte) = é ; accollade 
fermée = è ; barre verticale = Ci ; 
crochet ouvert =° ; crochet 
fermé = § (définitions en GOSUB 
51000). 



LE MENU PRINCPAL (1000) 

Il propose dix options. Après 
l'exécution de chacune d'entre 
elles, il y a toujours retour à ce 
menu. 

Chaque option débute par une 
confirmation (0/N) pour les étour- 
dis. 

Le nombre de fiches en RAM 
(maxi = 200) apparaît en haut à 
droite de l'écran. 
Tous les "questionnaires" utili- 
sent le module 50000. Exemple, 
la ligne 1 1 50 : TEX$ rassemble 
tous les symboles d'options. Le 
module 50000 fait quatre opéra- 
tions : 

— il affiche, en bas de l'écran, la 
liste des réponses possibles, 

— il transforme les réponses en 
majuscules, 

— si la réponse n'est pas dans 
TEX$, il émet un BIP sonore et 
repose la question, 

— il retourne au programme le 
numéro K de l'option choisie. 

NOTE : Nous vous conseillons 
d'enregistrer d'abord sur une cas- 
sette à part les modules 50000 
et 5 1 000. Ils vous seront très uti- 
les pour d'autres programmes ; il 
suffit de les joindre au pro- 
gramme en cours par MERGE" ". 

LE FICHIER D'ADRESSES 

Il est mis dans un tableau DIM 
AD$(200,5). Cela nous procure 
une grande souplesse d'utilisa- 
tion (modification de fiches, 
recherche, tri, etc.). Seul défaut, 
ce grand tableau en RAM ralen- 
tit les opérations de sauvegarde 
sur cassette. Les "rubriques" ou 
"champs" de à 5 sont les sui- 
vantes : 



= nom, exemple "Mr. Jean 
BERGER" (22 caractères) 

1 = adresse 1, exemple "6 rue 
MACHIN" (22 caractères) 

2 = adresse 2, lieu-dit, etc. (22 
caractères) 

3 = code postal (5 caractères) 

4 = ville (16 caractères) 

5 = (facultatif) secteur de distribu- 
tion (3 caractères) mais peut être 
porté à 1 1 caractères pour le 
numéro de téléphone, pays étran- 
ger ou toute autre remarque. 
Nos longueurs maximales en 
caractères sont arbitraires 
( = minimum). Vous pouvez élar- 
gir. 

LA PAGE D'ECRAN 

Elle représente une seule fiche à 

la fois. Elle spécifie si vous êtes 

en saisie ou en vision, son 

numéro, le titre de chaque 

champ, sa longueur en pointillés 

(en saisie), et en bas, un menu de 

trois lettres. 

S = fiche suivante 

P = fiche précédente 

F = FIN (retour au menu). 

En saisie, une quatrième option 

"E" (Erreur), qui efface la fiche 

à l'écran. 

NOTE : Grâce à la commande 
LINE INPUT au lieu de INPUT, on 
peut entrer des virgules et des 
guillemets. 

LA VISION 

La vision du fichier fiche par fiche 
peut se faire en donnant le 
numéro de fiche ou par recherche 
du nom, même une partie du 
nom. Ainsi, "RCHAMB" présen- 
tera la fiche "ARCHAMBAULT" ; 
"RAT" peut présenter la fiche de 
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M. GARRAT, puis celle de Mme. 
RAT, mais " RAT" (un espace 
devant) ne conduira qu'à Mme. 
RAT. 



LE TRI 

Ou classement peut se faire 
d'après n'importe quel champ 
(classement alphabétique, ordre 
ASCII). Nous utilisons ici le "tri 
à bulle", la "bulle" étant l'indice 
zéro du tableau DIM. Un tri sur un 
grand désordre peut demander 
près de cinq minutes, mais s'il 
s'agit de mettre en place quel- 
ques fiches nouvellement entrées 
("suite de saisie"), cela ne prend 
que quelques secondes. 

LA SAUVEGARDE 
DU FICHIER 

Elle débute par le nombre de 
fiches en RAM (NF), le nom du 
fichier (à entrer au clavier) et 



enfin le contenu des fiches. A la 
lecture, il n'est pas utile d'entrer 
ce nom (tapez ENTER). 

L'IMPRESSION 

Elle peut se faire sous deux 
modes. La "GLOBALE" ou ligne 
à ligne : sur une ligne, on a le 
numéro puis le contenu de la 
fiche. C'est un listing personnel. 
Enfin, le "LABEL" ( = étiquette) 
qui vous demande le numéro de 
départ et le numéro final. Pour 
éditer tout le fichier, tapez "1" 
puis "D" ( = dernier). 

TRES IMPORTANT : En lignes 
8100 et 9060, figure l'ordre 
CHR$(27)"R"CHR$(1) qui, sur 
les imprimantes de la marque 
EPSON (et assimilées), conduit 
aux caractères français (à, é, è, 
ù, ç,...). Consultez la notice de la 
vôtre afin de modifier ou confir- 
mer ce code. Si votre imprimante 



1-Mr DUPONT Jacques: 15 rue AMPERE La v 
2-Mlle HEVRARD Renée:B Allée des LILAS 
3-Mr,Mme GALVIN PauliVilla "LES CHENES 

♦Secteur a 
4-DUCHNDCk SARLiService du Personnel 11 

«Secteur 7 


GERIE 47123 St MARTIN *5ec 
66234 MDNTLDUIS «Secteur 
Lotissement LE BOIS 77S53 

-56 Bd MAGENTA 21897 SAINT 


TRAMIENS 
FAISANT 


Mr DUPONT Jacques 
15 rue AMPÈRE 
La VIGERIE 

47123 St MARTIN 

ftr ,Mme GALvIN Paul 

Villa "LES CHENES" 

Lotissement LE BOIS 

77853 TRAMIENS 

a 










Mlle HEVRARD Renée 
B Ail es des LILAS 

66234 MONTLOUIS 




DUCHNOCI:' SARL 
Service du Personnel 
12-56 Bd MAGENTA 
21B97 SAINT FAISANT 
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SAISIE FICHE NUMERO 18S 








ADRESSE Ir 1S rue Uictor HUGO - - ■ 


- r 




, 


CODE POST: G 9 540 r 








SECTEUR: 4- ■ h 




SUITE <S> , ERREUR CE> , FIN <F> 


' 


Réponse CS,E,F>— M 





n'a pas cette possibilité (par code 
ou par switches), supprimez 
cette commande. 
Le listing présenté fait 7391 
octets, soit 4 "blocks". 

CONSEILS 
D'UTILISATION 

SUPPRESSION DE FICHE 

Appelez cette fiche par l'option 
modification ; elle apparaît vide. 
Mettez des "zzzzz" dans chaque 
champ. Si vous refaites un tri, elle 
ira en bout de liste. Sinon, laissez- 
la en place, mais lors de la pro- 
chaine suite de saisie, recherchez 
par "zzz", modification, et "rem- 
plissage" par la nouvelle per- 
sonne. 

ADRESSES COMMERCIALES 

Utilisez le champ adresse 1 pour 
le nom du service, et "adresse 2" 
pour l'adresse proprement dite. 

COMMANDE DU 
MAGNETO-CASSETTE 

Il est normal que l'écran paraisse 
bloqué quelques instants 
(absence du curseur) avant et 
après un enregistrement de 
fichier. C'est l'AMSTRAD qui 
réorganise sa RAM, et le tableau 
DIM le gène un peu. Ce temps 
augmente avec la taille du fichier. 
Un bug de l'AMSTRAD : au-delà 
de 90 fiches (environ), l'écran 
devrait afficher "Saving - nom du 
fichier - Block 1 ". Or, à la place 
du nom attendu, apparaissent 
parfois des fragments de chaînes 
du fichier ! Sans importance, le 
nom réel que vous avez tapé 
( = FICH$) est une des données 
enregistrées. 
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LA PLACE MEMOIRE 

Avec notre fichier personnel de 
112 fiches en RAM, il reste 
25574 octets disponibles ! On 
doit donc pouvoir dépasser les 



200 fiches initialement prévues. 

Toutefois, il est plus pratique de 

fractionner en fichiers de tailles 

raisonnables. 

Pour savoir ce qui vous reste, 

tapez "F" au menu principal, puis 



PRINT FRE (" "), et enfin GOTO 
1000 pour revenir au pro- 
gramme. 

Michel ARCHAMBAULT 



10 'LABEL-HATIC - Aistrad - M. A. 1985 
100 «ODE 0:BORDER 16: INK 0,1 : IBK 1,24;PAPER 1 1 : CLS 
110 L0CATE 1,7: PEN !2:FRINT "L A B E L-M A T I C" 
120 L0CATE 1.13: PEN 4:PRIHT "Editeur d'Etiquettes 
130 L0CATE 2.21 :PEN 0:PRINT "H. AchaiibauU.-ï9S5" 
140 FOR 1=1 T0 3000;NEXT 
200 HODE l: BORDER 2: PAPER : PEK 1;CLS 
210 D1M ADS!200,5);DEFINT ft-Z 
300 GOSUB 51000 
1000 'MENU PRINCIPAL 
1010 GLSlINK 0,1;INK 1,24 

1020 LOCATE 17,2;PEN 3:PRINT "M E N l":PEN 2:L0GAT 
E 29,2:PRINT NF;"f iches":PEN 1 
1030 LOCATE 6,4:PRINÎ "N = Nouveau fichier" 
1040 LOCATE 6,6:PRINT "C = Ctorgeuent-letture d'un 
fichier" 

1050 LOCATE 6,8:PRINT "S = Suite d'un fichier char 
g!" 
1060 LOCATE 6,10;PRINT "M = Modification du fichie 

1070 LOCATE 6,12:PRINT "E = Enregistraient sur cas 

sette" 

1080 LOCATE 6,14:PRINT "V = Visionner ou recherche 

1090 LOCATE 6,16:PRINT "L = inoression en LABELS" 

1100 LOCATE 6,18:PRIHT "G = iipression GLQBÀLE'tën 

1 ignés)" 

1105 LOCATE 6,20:PRINT "T = TRI du Fichier" 

1110 LOCATE 6,22;PRINT "F = Fin" 

1150 TEX5="NCS«EVLGTF":G0SUB 50000 

1160 ON K GOTO 2000,3000,4000,5000,6000,7000,8000, 

9000.12000,1500 

1170 GOTO 1000 

1500 'FINAL 

1510 CLS:LOCATE 10,12:PRINT "VOUS POUVEZ. ETEINDRE, 

":PRINï:PRINT 

1520 END 

2000 ' NOUVEAU FICHIER 

2010 CLS 

2020 LOCATE 6,4;PRINÏ "CREATION D'UN NOUVEAU FICHI 

ER' * 

2030 LOCATE 12,7:PRINT "! 200 fiches «agi !" 

2040 LOCATE 3,12:PRINT "Nous effa\ons le Fichier e 

n IHioire." 

2050 LOCATE 15.14:PRINT "D'ACCORD ?" 

2060 TEXt='ON":GOSLIB 50000 

2070 IF R=2 THEN 1000 

2080 N=1;NF=0: GOSUB 10000 

2090 NF=N;GOTO 1000 

3000 ' CHARGEMENT FICHIER 

3010 GLS;LOCATE 3,3:PRINT "LECTURE D'UN FICHIER Su 

R CASSETTE :" 

3020 LOCATE 16,10:PRINT "D'ACCORD ?" 

3030 TEX$="ON*:GQSUB 50000 

3040 IF K=2 THEN 1000 

3050 CLS:LOCATE 12,5:LINE INPUT "NON DU FICHIER; " 

,FICH* 

3060 LOCATE 3,8:PRINT "D!s que la cassette est nos 

itionnte" 

3070 LOCATE 11, 10; PRINT "Presse! une Touche," 

3030 ÏHILE INKEYi="":ïENB 

3090 OPENIN FICH) 

3100 INPUT »9,NF,FICHS:F0R 1 = 1 TO NF;F0R 1=8 TO 5; 



INPUT S9,ADi(I,îl;NEXT:MEXÎ 

3110 CLOSE IN 

3120 LOCATE 12.15:PRINT " 1 1 -y-a" ; nf ; "Fiches." 

3130 FOR 1=1 TO 2500:NEXT 

3140 GOTO 1000 

4000 'SUITE DE SAISIE 

4010 as 

4020 LOCATE 2.4;PRINT "SUITE DE SAISIE DU FICHIER 

EN MEMOIRE. " 

4030 LOCATE 16,10:PRINT "D'ACCORD ?" :TEJ.-î="0N" :GCS 

LIA 50000 

4040 IF S=2 THEN 1000 

4D50 N=NF+I: GOSUB !0000;NF=N 

4060 GOTO 1000 

5000 'MODIFICATION 

50 10 CLS 

5020 LOCATE !0,5:PRINT "MODIFICATION DE FICHE:" 

5030 LOCATE 12,11:PRINÎ ".( Pour FIN --> !' 

5040 LOCATE 12,9;INPUI "QUEL NUMERO ?",RRi 

5050 IF NR)="0" THEN 1000 

5060 NE=VALiNR*!:!F NR=0 OR NR>NF THEN PRINT CHRSi 

7! GOTO 5040 

5070 N=NR: GOSUB 10000: GOTO 5000 

6010 CLS: LOCATE 7,5:PRINÎ "ENREGISTREMENT SUR CASS 

6Û2C LOCATE 16.10:PRÏNT "D'ACCORD ?" :TEX$="ON":GOS 

UB 50000 

6030 IF K=2 THEN 1 000 

6040 LOCATE 1,24:PRINT GHR$ ( 13 >: LOCATE 3,10:PRINT 

"Priparez une Cassette vierQB,avec" 

6050 LOCATE 3,12:PRINÎ "aîiorce avancia," 

6070 LOCATE 12,15:11» INPUT'NOM DU FICHIER: ".FIO 

m 

6080 SFEED «RITE l;OPENOUT FICHi 

6O90 MRTÎE *9,NF,FICHî:FOR 1=1 TO NF:F0R -1=0 TO 5; 

ÏRITE l9,ADiU,j);NEXT:NEXT 

6100 CLOSEOUT 

6110 GOTO 1000 

7000 'VISIONNER, RECHERCHER 

7010 CLS:LOCATE 12.4:PRINT "VISION ou RECHERCHE:" 

7020 LOCATE 6,8:PRTNT "T = TOUS, depuis !e dïbut." 

7030 LOCATE 6,Î0;PRINT "N = Nuulro," 

7035 LOCATE 6,!2:PRINT "R = Recherche d'un Hou" 

7040 LOCATE 6,14:PRINT "F = FIN." 

7050 TEXi="TNHF": GOSUB 50000 

"060 ON K GOTO 7100,7200.7300,7500 

7100 N=1;G0SUE 11000:GOï6 7000 

7200 LOCATE 12,15;INPUT "QUEL NUMERO '',NRS 

7210 NR=VAL!NR«):IF NR=0 OR NR>SÏF THEN PRINT CHfil! 

7): GOTO 7200 

7220 N=NR:G0SUS 1100û:GOTO 7000 

7300 LOCATE 12,17;LINE INPUT "NOM cherchf ; ",NHS 

7310 FOR N=l TO NF 

7320 IF INSTR!3.AD$iN,C!,NBî!>0 THEN GOSUB 11000 

7330 NEXT 

7500 GOTO 1000 

8000 ' IMPRESSION 2 LABELS / 80 col. 

8010 CLS:LOCATE 8,5:PRIHT "IMPRESSION DES ETIQUETT 

ES;":LOC«TE 16,11;PRINT "D'ACCORD ?" 

8020 TEXi='QN":GOSUB 50000: IF K=2 THEN 1000 

8030 CLSiLOMÎE 7,5:PRINT "Deux Etiquettes car Ran 

qû, - 
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8040 LOCATE 12,8;INPUÎ "NUMERO DEPART: ",NBS:ND=VA 

L(ND«>:IF ND=0 OR ND>=NF THEN PRINT CHRtS7):GOTO 8 

040 

8050 LOCATE 14,12:PRINT "i D pour dernier )" 

8060 LOCATE 13,10;IKPUT "NUMERO FINAL: ",Hft*:IF UP 

PER«(NAt) = "D" THEN NA=NF:GOTO 8080 

3070 HA=VAL(NA$) : IF~HA<=HD OR NA>NF THEN 8060 

8080 LOCATE 10,17;PRINT "VCrif i ei l'Imprimante, ":L 

OCATE 9,19:PRINT "puispresseï une Touche." 

8090 ÏHILE INKEYt= s ":»END 

8100 PRINT t8,CHRt(27)"R"CHR«(l): 

8120 FOR I=HD TO NA ETEP 2 

3130 PRINT t8,SPC((37-LEN!ADi(I,0)))/2);AD$(I,0).:S 

PCI (43-LEN(ADS( 1,0)1 1/2) :ËPC((40-LEN(ADf i 1+1,0)))/ 

2I:AD*(I+1,0) 

8140 PRINT »8,SPCU37-LEN(ADt(I,l)))/2);ADI(I,l);S 

PC((43-LENfAD*!I,l)))/2):SPC(!40-LEN(AD<(I+l,l))!/ 

2):ADHÏ+1,1) 

8150 PRINT t8.SPCt(37-LEN(AD$U,2!)!/2);ADt!I.2):S 

PC(f43-LEN(AD$(I,2))l/2).:SPCI!40-LEN(ADl!i*l,2!))/ 

2l;ADt(I+l,2> 

B160 PRINT «B,SPCU36-LEN(ADHI,3))-LEN!AD*iI,4))) 

/2i;AD»!I,3!:" »;AD*U,4);SPC(!42-LEN(ADt(I,3i)-LE 

N(ADt(I,4)))/2);SPCi(41-LENiADS(I + i,3))-LEN(AD*!I+ 

l,4)))/2);AD«(Itl.3);" r :ffl»(I+I,4l 

8170 PRINT »8,SPC(17):AD((I,5!;SPC(42);AD$iI+l,5) 

8180 FOR J=l TO 4IPRINT t8:NEXT 

8190 NEXT 

8200 GOTO 100O 

9000 ' IMPRESSION GLOBALE 

9010 CLSlLOCATE 12,5:PRINT "IMPRESSION GLOBALE:" 

9020 LOCATE 12,7: PRINT "( ligne S ligne )":LOCATE 

16,ll:PRINT "D'ACCORD ?" 

9030 TEX*="ON":GOSUB 50000:IF K=2 THEN 1000 

9040 CLS:LOCATE 10,5:PRINT "Prtparei 1 'Imprimante, 

";LOCATE 9,10:PRINT "puis pressez une Touche." 

9050 (JHILE INKEYt="":ïEND 

9060 PRINT #B,CHRt(27)"R"CHR$(l).:SPC((80-LEN(FICHt 

))/2):FICH» 

9070 PRINT t8:FOR 1=1 TO NF 

9090 PRINT t8,USING "»«»'.: I; :PRINTt8,"-";ADt(I,0); 

";";AD»U,l>," ":flD*(I,2>:" ";AD*(I,3);" ":AD$(I,4 

).:" tSecteur ":ADt(I,5) ;NEXT 

9100 PRINT t8.STRINGI(78," ")• 

9110 GOTO 1000 

10000 ' SAISIE 

10010 CLS:IKK 0,13:INK 1,0 

10020 LOCATE 10,2iPRINT "SAISIE FICHE NUHERO";N 

10030 LOCATE 13,5:PRINT STRING«(22,GHR$! 144! !:CHRS 

(151) 

10040 LOCATE S,5:LINE INPUT "NON: ",AD*(N,0) 

10050 IF LEN(AD»(N,0))>22 THEN ADt!N,0)=LEFTt(AD*( 

N,0),22):PRINT CHRX7! 

10060 LOCATE 13,7:PRINT STRING$(22,CHRt(144) );CHR* 

(151) ' 

10070 LOCATE 2,7:LINE INPUT "ADRESSE 1: ",ADt!N,D 

10080 IF LEN(ADi(N,l))>22 THEN ADS(N,1)=LEFÏ$(AD»( 

N,1),22):PRINT CHRt(7! 

10090 LOCATE 13,9:PRINT STRIMGt (22.CHR* ( 144 ) );GHRt 

(151) 

10100 LOCATE 2,9:LINE INPUT "ADRESSE 2: ",ADtiN,2l 

10110 IF LEN(ADt(N,2))>22 THEN ADt!N,2)=LEFH(AD*( 

N,2),22):PRINT CHRM7) 

10120 LOCATE 13,11 '.PRINT STRING$(5,CHRi(144)):CHR* 

(151) 

10130 LOCATE 2, 11: INPUT "CODE POST: - ,ADt(N,3) 

10140 LOCATE 13,13:PRINT STSINGt(16,CHR»(144)!:CHR 

1(151) 

10150 LOCATE 6,13:LINE INPUT "VILLE: ",ADt(N,4) 

10160 IF LEN!AD»(N,4))>16 THEN AD«(N,4)=LEFT*(AD*( 

N,4),16):PRINTCHRt(7) 



: Cl vo LOCATE 



15:PF.!NT STRING<i3,CHR»!144)i;CHR$ 



10180 LCCATE 4.15:INPUT "SECTEUR: ".ADÎ(N,5) 

10190 LOCATE 2,19:PRINT "SUITE (Si , ERREUR !E! , 

FIN (F) ?" 

10200 ÏEXi="SEF";GOS'JB 50000 

14210 ÎF K=l THEN N=N+!;GOTO 10000 

10220 IF K=2 THEN 10000 

10230 RETURN 

11000 'AFFICHAGE 

11010 GLS:INK 0,13:INK 1,0 

11020 LOCATE Î0,2:?RINT "VISION FICHE NUMERO":N 

11030 LOCATE 8,5;PR!NT "NON: ":AD»!N,0! 

11040 LOCATE 2,7:PRINT "ADRESSE 1: ";ADSiN,D 

11050 LOCATE 2,9:PRINT "ADRESSE 2: ";ABS(N,2) 

11060 LOCATE 2,ll:PRIHT "CODE POST: ":ADS(N,3) 

11070 LOCATE 6,13:PRINT "VILLE: ":AD«!K,4) 

11080 LOCATE 4.15:PRINT "SECTEUR: ";ADt(N,5! 

11090 LOCATE 8,19:PRINÎ."Pr{c)dent , Suivant , Fin 

11100 TEXS="PSF":GOSUB 50000:ON K GOTO 11200,11300 

11200 N=N-l:IF N=0 THEN PRINT CHRS(7);N=1 

11210 GOTO 11010 

11300 K=N+l:ÎF N>NF THEN PRINT CHRi(7):N=NF 

11310 GOTO 11010 

11400 RETURN 

12000 'TRI 

12010 CLS.'LQCATE 13.4:PRIHT "TRI DU FICHIER: ":L0CA 

TE 16,!l:PRINT "D'ACCORD ?" :TEXt="ON" :GOSUB 50000; 

IF 5=2 THEN 1000 

12020 CLS:LOCATE 13,4:PRINT "CRITERE DU TRI;":L0CA 

TE 9,8:PRINT "N = NOM" 

12030 LOCATE 9,10:PRINT 'A = ADRESSE l";LOCAÎE 9.1 

2:PRINT "l = Lieu-dit (adresse 2)":LOGATE 9,14:PRI 

NT "G = Gode postal" 

12040 LOCATE 9,lé;PRINT "V = VILLE - :LOCATE 9,18:PR 

INT "S = SECTEUR" 

12050 TEX$="NALCVS";GOSUB 50000 : T=K- 1 ; LOCATE 16,21 

;PRINT "Patience..." 

12060 F=0:FORJ=1 TO NF 

12070 IF ADS(I,T)>=flD$(M,T) THEN 12090 

12080 FOR R=0 TO 5:ADS(0,R!=AD1! J,R! :AD!(J.R!=ADS( 

ï-i,R!:âDSiI-l,R)=AD'.(0,R):NEXT:F=l 

12090" NEXT 

12100 IF F=l THEN 12060 

12110 GOTO 1000 

50000 'REPONSE A UN MENU 

50010 LT=LENiTEX(i:RS="" 

50020 LOCATE !5-LT,24:PRINT "Rïponse !": 

50030 FOR 1=1 TO LT-1 

50040 PRINT flIDMTEX«,!,l!;",".::NEXT 

50050 PRINT RIGHÏS(TEXS,l):"!".:CHR$!154!.:CHR$i243) 

:CHR$(207) 

50060 TEXf=UPPERi(TEXS) 

50070 ÏHILE Rt="":R«=INKEYt:ÏEND 

50080 R»=UPPERJ(R«) :K=INSTR(TEXt,R$! 

50090 IF K=0 THEN Rt= PRINT CHR$ 1 7 ! .: : GOTO 50070 

50100 RETURN 

51000 ' AZERÏY ACCENTUE 

51010 SYMBOL AFTER 7 

51020 SYMBOL 64,96,48,120,12,124,204,118,0 

51030 SYMBOL 91,0,56,108.56,0,0,0,0 

51040 SYMBOL 92,0,0,60,102,96,102,60,24 

51050 SYMBOL 93,60,96,60,102,60,6,60,0 

51060 SYMBOL 123,12,24,60,102,126,96,60,0 

51070 SYMBOL 124,48,24,102,102,102,102,62,0 

51080 SYMBOL 125,43.24,60,102.126,96,60,0 

51100 RETURN 

65535 'FIN DE LISTING 
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Voici deux petits programmes 
écrits en assembleur que de 
nombreux possesseurs du livre 
"AMSTRAD CPC 464 FIRM- 
WARE" auraient pu écrire, tant 
les renseignements contenus 
dans cet ouvrage sont précieux. 
Le premier permet de charger et 
de lister un programme écrit en 
Basic, et ensuite de le sauvegar- 
der avec la commande de protec- 
tion (fichier apparaissant dans un 
CAT avec le type %). 
Le programme Basic chargé par 
ce programme peut être exécuté, 
modifié, listé ou sauvegardé avec 
ou sans protection. 
Nous allons analyser le listing de 
ce chargeur. 

Ce programme fait appel aux dif- 
férentes routines de la ROM 
AMSTRAD par la zone des 
JUMP. 

Notons tout de suite que volon- 
tairement le pointeur de pile n'est 
pas initialisé ; la pile utilisée sera 
donc celle du Basic. 

CINIT : est le sous-programme 
d'initialisation de la cassette. 

CIOPEN : est le sous-programme 
d'ouverture d'un fichier cassette 
en lecture. La paire de registres 
H et L du Z80 pointe la zone où 
se trouve le nom du fichier à lire ; 
dans notre exemple, nous ne 
mettons aucun nom, et par 
conséquent, l'AMSTRAD char- 
gera le premier fichier rencontré 
sur la cassette (notons que ces 
mêmes routines fonctionnent 
avec les disques, mais là, il est 
impératif de mettre le nom du 
fichier à lire). 

La paire de registre DE pointe une 
zone RAM de 2 k-octets qui ser- 



vira de buffer pour la lecture des 
blocs sur la cassette. Dans notre 
programme, le buffer est à 
l'adresse 9000 H et le registre B 
contient la longueur du nom du 
fichier à lire (ici zéro). 
A la sortie de la routine CIOPEN, 
les registres H et L contiennent 
l'adresse de la zone mémoire où 
se trouve l'en-tête du fichier. 
Cette zone mémoire se décom- 
pose ainsi pour les octets qui 
nous intéressent : 

— octets à 1 5 : nom du fichier, 

— octets 21 et 22 : adresse de 
chargement, 

— octet 1 8 : type de fichier (0 : 
Basic non protégé, 1 : Basic pro- 
tégé, 2 : binaire, 6 : ASCII), 

— octets 24 et 25 : longueur 
totale du fichier, 

— octets 26 et 27 : adresse 
d'exécution pour les programmes 
en code machine. 

Les registres DE contiennent 
l'adresse de chargement, les 
registres BC contiennent la lon- 
gueur totale du fichier. Le regis- 
tre A contient le type du fichier 
(ces trois informations se trou- 
vent aussi dans la zone en-tête 
pointée par HL). 
Dans le programme, nous sauve- 
garderons ces valeurs dans les 
adresses 9900 H et suivantes, 
mais ceci n'est pas utile, ces 
valeurs pouvant être récupérées 
à travers la zone en-tête, et dans . 
ce cas, seule la paire de registres 
HL devra être sauvegardée dans 
la pile et récupérée pour le trai- 
tement après CIDIR. 
Si l'opération d'ouverture s'est 
bien déroulée, le drapeau de 
CARRY est à 1 , d'où le test qui 
renvoie en ABAN en cas d'erreur 
de lecture. 

Les contenus des registres DE et 
HL sont échangés pour entrer 
dans la routine CIDIR qui effec- 



tue la suite de la lecture du fichier 
avec, comme paramètre d'en- 
trée, l'adresse de stockage du 
fichier contenu dans les registres 
HL. 

Aucun test n'est fait sur le type 
de fichier rencontré, nous suppo- 
sons que la cassette a été posi- 
tionnée en début d'un fichier 
Basic protégé. 

Nous récupérerons ensuite 
l'adresse de début stockée en 
9902 H, et la longueur du fichier 
stocké en 9904 ; nous calculons 
l'adresse de fin de programme 
que nous implantons dans la zone 
mémoire système allant de 
AE83 H à AE88 H (lignes 26 à 31 
du programme). Cette opération 
met à jour les pointeurs Basic ; 
notons qu'elle n'est peut-être pas 
optimale, l'auteur ayant procédé 
par tâtonnements. A la fin, le pro- 
gramme retourne au Basic. 
Ce programme est très court et 
peut donc être réassemblé à la 
main pour être relogé dans l'es- 
pace mémoire convenant le 
mieux à chacun. 
Il a été mis dans le haut de la 
mémoire car, les programmes 
Basic commençant à l'adresse 
1 70H, il permet donc de lister des 
programmes de plus de 35 k- 
octets. 

Voici un petit programme Basic 
très court pour ceux qui n'ont pas 
d'assembleur, qui chargera et 
sauvegardera sur cassette le pro- 
gramme n° 1 . 

10 AD = &9800 

20 FOR l = TO &45 

30 READ A:POKE AD + I.A 

40 NEXT I 

50 DATA &C3, &06, &98, 
&0D 

60 DATA ... 

70 DATA ... 
100 SAVE "PROG1",B,&9800, 
&46 
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Pour les DATA, reprendre le lis- 
ting assembleur. 
Le programme ainsi sauvegardé 
pourra être chargé par la 
commande : 
MEMORY &97FF:LOAD 
"PROG1" 
et il sera appelé par CALL &9800. 

Le programme n° 2 est la conti- 
nuité du n° 1 . 

Le programme n° 2 lit un fichier 
sur la cassette et le sauvegarde 
sur une autre cassette en conser- 
vant lé type du fichier (protégé ou 
non) et son nom. 
Lorsque le message "Press PLAY 
then any key" apparaît, introduire 
la cassette source et effectuer la 
lecture. 



Dès l'apparition du message 
"Press REC and PLAY then any 
key", insérer une cassette vierge 
et effectuer la copie. 
La partie sauvegarde commence 
au label ENR. 

Au départ, on récupère l'adresse 
de la zone en-tête qui avait été 
sauvegardée en 9900 H, puis on 
recherche la longueur du nom 
pour initialiser le registre B avec 
cette valeur. 

COOPEN : ouvre un fichier en 
écriture avec les registres HL qui 
pointent le nom du fichier. 
Les registres DE pointent le buf- 
fer d'écriture et le registre B 
contient la longueur du nom du 
fichier. 



CODIR : stocke le fichier sur la 
cassette avec utilisation des 
registres suivants : 

— HL contiennent l'adresse de 
début, 

— DE contiennent la longueur, 

— BC contiennent l'adresse 
d'exécution si elle existe, 

— A contient le type. 
L'adresse d'exécution a été récu- 
pérée dans la zone en-tête. 
Pour ceux qui n'ont pas d'assem- 
bleur, le programme Basic précé- 
dent est valable ; il suffit de rem- 
placer la ligne 20 par 20 FOR I = 
TO & 76 et les lignes de DATA 
par le nouveau code machine. En 
modifiant la ligne 100, vous pour- 
rez sauvegarder le programme 
sous le nom que vous souhaitez. 








ORG 


9300H 




LOAD 


9800H 


cidir: 


EQU 


0EC83H 


cinit: 


EQU 


0BC65H 


ciopen: 


EQU 


0BC77H 


ci close: 


EQU 


0BC7AH 


ciaban: 


EQU 


0BC7DH 



9 9800 C3069S 



il 


9803 


03 


B'JFF ; 


12 


9804 


0C9C 


CRBUFF 


13 








i ,3 


9806 


37 


DEBUT: 


13 


0307 


CD65BC 




16 


980A 


210393 




\y 


9303 


010000 




18 


9810 


ED5B0493 




19 


9814 


CD77BC 




20 


9817 


220099 




21 


981A 


ED530299 




22 


9S1E 


ED430499 




23 


9822 


EB 




24 


9823 


301A 




25 


9825 


CD83BC 




26 


9328 


2A029" 




27 


9S2B 


ED5B0499 




28 


932F 


19 




29 


9330 


2283AE 




30 


9333 


2285AE 




31 


9836 


2287AE 




32 


9839 


CB7AEC 




33 


983C 


C34298 




34 


983F 


CD7DBC 


aban: 


35 


9342 


31F8BF 


cont: 


36 


9345 


C9 
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DB 


ODH 


DW 


9000H 


SCF 




CALL 


CINIT 


LD 


HL,BUFF 


LD 


BC,C 


LD 


DE, <CRBUFF! 


CALL 


CIOPEN 


LD 


(9900H) ,HL 


LD 


(9902H) ,DE 


LD 


(9904H) ,BC 


EX 


DE,HL 


JR 


NC, ABAN 


CALL 


CIDIR 


LD 


HL, (9902H) 


LD 


DE, (9904H) 


ADD 


HL,DE 


LD 


(0AE83H) ,HL 


LD 


<0AE85H) ,HL 


LD 


(0AE87H) ,HL 


CALL 


CICLOSE 


JP 


CONT 


CALL 


CIABAN 


LD 


SP,0BFF8H 


RET 




END 





Listing 2 



1 






2 






3 




cidir: 


4 




cinit: 


5 




ciopen: 


6 




CICLOSE 


7 




ciaban: 


B 




coopen: 


9 




codir: 


10 




COABAN: 


11 




COCLOSE 


12 






13 9800 


C30698 




14 






15 9803 


0D 


buff: 


16 9804 


0090 


crbuff: 


17 






16 9806 


37 


DEBUT: 


19 9807 


CD65BC 




20 980A 


210398 




21 980D 


010000 




22 9810 


ED5B0498 




23 9814 


CD77BC 




24 9817 


220099 




25 981A 


ED530299 




26 981E 


ED430499 




27 9822 


EB 




28 9823 


300B 




29 9825 


CD83BC 




30 9828 


3006 




31 982A 


CD7ABC 




32 982D 


C33798 




33 9830 


CD7DBC 


ABAN : 


34 9833 


31F8BF 


cont: 


35 9836 


C9 




36 9837 


CD65BC 


enr: 


37 983fl 


2A0099 




38 983D 


OEOO 




39 983F 


7E 


El : 


40 9840 


23 




41 9841 


OC 




42 9842 


FEOO 




43 9844 


20F9 




44 9846 


OD 




45 9847 


41 




46 9848 


2A0099 




47 984B 


ED5B0498 




48 984F 


CD8CBC 




49 9852 


2A0299 




50 9855 


ED5B0499 




51 9859 


DD2A0099 




52 985D 


DD4E1A 




53 9860 


DD461B 




54 9863 


3A0699 




55 9866 


CD98BC 




56 9869 


3006 




57 986B 


CD8FBC 




58 986E 


C33398 




59 9871 


CD92BC 


uaban: 


60 9874 


C33398 




61 






62 







org 


9800H 


LOAD 


9800H 


ESU 


0BC83H 


ESU 


0BC65H 


ESU 


0BC77H 


ESU 


OBC7AH 


ESU 


0BC7DH 


ESU 


OBC8CH 


ESU 


0BC98H 


ESU 


0BC92H 


ESU 


0BC8FH 


JP 


DEBUT 


DB 


ODH 


DW 


9OO0H 


SCF 




CALL 


CINIT 


LD 


HL.BUFF 


LD 


BC,0 


LD 


DE, (CRBUFF) 


CALL 


CIOPEN 


LD 


(9900H) ,HL 


LD 


(9902H) ,DE 


LD 


(9904H) ,BC 


EX 


DE.HL 


JR 


NC.ABAN 


CALL 


CIDIR 


JR . 


NC, ABAN 


CALL 


CICLOSE 


JP 


ENR 


CALL 


CIABAN 


LD 


SP,0BFF8H 


RET 




CALL 


CINIT 


LD 


HL, (9900H) 


LD 


C,0 


LD 


A, (HL) 


INC 


HL 


INC 


C 


CP 





JR 


NZ,E1 


DEC 


C 


LD 


B,C 


LD 


HL, (9900H) 


LD 


DE, (CRBUFF) 


CALL 


COOPEN 


LD 


HL, (9902H) 


LD 


DE, (9904H) 


LD 


IX, (9900H) 


LD 


C, (IX+26) 


LD 


B, (IX<-27) 


LD 


A, (9906H) 


CALL 


CODIR 


JR 


NC , WABAN 


CALL 


COCLOSE 


JP 


CONT 


CALL 


COABAN 


JP 


CONT 



*)$- e? 
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LA MEMOIRE D 1 ECRAN 



Extrait du livre "MIEUX PROGRAMMER SUR 
AMSTRAD" 



Les notions exposées dans cet 
article ne sont pas du tout 
indispensables pour devenir un 
bon progammeur en Basic ; elles 
permettent d'aller plus loin en tri- 
turant la zone mémoire de l'écran 
par des PEEK ou des POKE. Pour 
faire quoi ? 

Tout d'abord faire des program- 
mes de "HARD COPY" qui exé- 
cutent sur imprimante une sorte 
de photocopie de l'écran en 
cours, surtout utile pour les gra- 
phismes (vous pourrez utiliser ces 
programmes même si vous ne 
comprenez pas leurs fonctionne- 
ments). Avec ces notions, et de 
la patience, vous pourrez aussi 
créer des effets colorés inacces- 
sibles par les seules fonctions 
Basic. 

GENERALITES 
SUR LA MEMOIRE 

Le CPC 464, comme la plupart 
des micro-ordinateurs de moins 
de 20 000 FF, utilise un micro- 
processeur "8 bits" (un octet). 
Pour aller chercher un octet en 
mémoire, il faut que ce dernier ait 
une adresse. Un octet peut pren- 
dre 256 valeurs possibles 
(256 = 2 8 ). Pour les adresses, 
disons un octet pour les "colon- 
nes" et un octet pour les 
"lignes" d'un "tableau d'adres- 
ses", donc 256x256 = 65536 
"cases mémoire", qu'on numé- 
roté de à 65535. C'est ce 
qu'on appelle 64 k-octets car le 
"kilo-octet" vaut en réalité 1024 
octets... Donc 64 k-o est le maxi- 
mum pour un micro 8 bits. 
Il faut les partager entre la ROM 
(le Basic résident) et la RAM (pro- 
grammes + variables en cours + 
les points lumineux envoyés à 
l'écran). Avec un Basic de 



32 k-o, il ne resterait que 32 k-o 
pour la RAM, d'où vingt et quel- 
ques k-o disponibles pour pro- 
grammes plus fichiers, c'est ce 
qui se passe avec les MSX et bien 
d'autres. Nous, nous avons 
32 k-o de Basic, 43 k-o disponi- 
bles + 16 k-o réservés à l'écran ! 
La raison de ce "miracle" est que 
l'AMSTRAD "recharge et dé- 
charge" la portion de la ROM 
dont il a besoin (c'est une vue 
d'esprit). De ce fait, une large 
partie de la RAM est plutôt 
"mouvante", ce qui va donner 
bien du plaisir aux amateurs de 
PEEK et de POKE... 
La partie mémoire écran occupe 
une zone fixe, de 49152 à 
65487, mais le fait que l'on 
puisse mélanger texte et gra- 
phisme, et ce en trois MODES, 
fait que sa structure est d'une 
extrême complexité inouie 
(même principe que sur les 
APPLE II, mais en pire). C'est ce 
qui explique que l'affichage des 
caractères est assez lent, exem- 
ple, quand on fait LIST sur un 
long programme. 
Dans le manuel, les adresses sont 
indiquées en hexadécimal (pré- 
fixe & et quatre caractères). Il est 
pratique de savoir faire les 
conversions hexadécimal-décimal 
dans les deux sens (Note : le pré- 
fixe hexadécimal ne signifie pas 
"six'-' mais "seize"). 

LES CONVERSIONS 
HEXA/DECIMAL/BINAIRE 

En binaire, on a deux symboles 1 
et 0, en décimal on a dix symbo- 
les à 9, en hexa on en a seize, 
à 9 + A, B, C, D, E et F 
(&F=15;&A=10). 
On représente la valeur d'un 
octet par deux symboles hexa, 



ainsi & FA = (256x15) + 10 = 
250. Il suffit de taper PRINT &FA 
et 250 apparaît à l'écran. De 
même, &FF = 255, c'est bien le 
maximum pour un octet. 
Une adresse tient sur deux 
octets, exemple &AFC8. Vous ne 
pouvez pas faire PRINT &AFC8 
car l'AMSTRAD ne sait pas faire 
la conversion sur plus d'un octet, 
vous êtes obligé de décomposer : 

PRINT &AF.256 + &C8 

et la réponse apparaît : 45000. 
L'opération inverse est beaucoup 
plus facile : 

PRINT HEX$(45000) 

l'écran répond AFC8 (le & est 

sous-entendu). 

Pour traduire une longue suite de 

valeurs hexa en décimal, vous 

gagnerez du temps en utilisant ce 

très court programme du listing 

n° 1. 



Passons à la représentation 
binaire d'un nombre. Tapez, par 
exemple : PRINT BIN$(45956), 
vous obtenez une suite de 1 6 bits 
1 et 0. Essayez maintenant 
PRINT BIN$(3), vous obtenez 
"1" (c'est une chaîne) ; avec 
PRINT BIN$(3,1 6), vous avez 14 
zéros suivis de "1 1 ". 
Gare à l'opération inverse par &X, 
elle traduit cette "image binaire" 
en un nombre dit entier, c'est-à- 
dire compris entre -327869 et 
+ 32767 ! Un zéro suvi de quinze 
1 donne 32767, tandis que 1 
suivi de quinze zéros donne 
-32768. 

Heureusement, vous n'avez pas 
à vous en préoccuper car dans la 
pratique les seules images binai- 
res qui nous intéressent sont sur 
un octet, donc de 1 à 255. 
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LE PLAN 

MEMOIRE DE L'ECRAN 

Nous y voilà ! 

Deux cent lignes horizontales de 
80 octets chacune. Dans une 
ligne, les numéros d'octets se 
suivent de gauche à droite. Pre- 
nons le cas le plus simple, celui 
du MODE 2 : chaque bit repré- 
sente un "pixel" ou point à 
l'écran, ainsi 255 fait un tiret 
continu (huit bits 1). La ligne en 
haut de l'écran va de 491 52 à 
49231, soit 80x8 = 640 points 
(ce qui explique qu'en coordon- 
nées graphiques l'échelle horizon- 
tale aille de 1 à 640). 
Hélas, l'octet suivant, le 49232, 
n'est pas' au départ de la 
deuxième ligne mais huit lignes 
plus bas ! Et ainsi de suite au pas 
de 8 lignes. Après un premier 
"passage" de 25 lignes espacées 
de 8, commence le deuxième 
passages sur les lignes du des- 
sous. Pour tout comprendre, 
essayez le programme du listing 
n° 2. 



Un joli store vénitien ! 
Les figures 1 et 2 vous donnent 
le plan des adresses d'écran. 
Vous constatez qu'entre deux 
"tirets" (deux octets) situés à 
l'écran, l'un en-dessous de l'au- 
tre, il y a un écart de 2048 octets 
( = 2 k-octets), qu'entre deux 
lignes d'un même "passage" 
(donc espacées de 8 lignes 
d'écran), il y a un écart de 14336 
octets. 

A présent, modifiez la ligne 1 10 
en mettant MODE 1 . Surprise ! 
Les traits sont rouges ( = PEN 3) . 
En ligne 110, mettez MODE : 
les traits clignotent en rose/bleu 
ciel ( = PEN 15). Nous abordons 
alors le code des couleurs en 
fonction du MODE. 

LE CODAGE 
DES COULEURS 

En MODE 2, rien de plus simple : 
comme il n'y a que deux couleurs 
possibles, un bit 1 fait un pixel 
PEN, un bit un pixel PAPER 
(Pixel est la contraction anglaise 
de PICTURAL ELEMENT). 



Lancez ce programme du listing 
n° 3 qui va dessiner en et 1 les 
images binaires des quatre pre- 
miers caractères sur un écran en 
MODE 2. 

Le résultat est spectaculaire. On 
y retrouve les compositions illus- 
trées dans le manuel AMSTRAD 
page A3. 2 et suivantes. 
A présent, modifions la ligne 21 
afin d'avoir MODE 1 (ou faites 
MODE 1:RUN 220). Oh ! Que 
c'est vilain ! Sur chaque "pavé", 
on n'a qu'une moitié de chaque 
caractère. Il faudrait accoller les 
moitiés gauches des pavés pour 
reconstituer le texte. Les moitiés 
droites des pavés (ou des octets) 
ne comportent que des 0. Ces 
zéros constituent en fait le code 
couleur de PEN (PEN 1 en ce 
cas) : apparions - les gauche + 
droite, on a '01" quand il y a 
quelque chose à tracer, or 
&X01=1 (PEN 1). 
Tapons PEN 2 et, toujours en 
MODE 1, faisons RUN 220 : les 
1 sont à droite et les zéros à gau- 
che, &X10 = 2 (PEN 2). 
Tapons PEN 3 et même manœu- 
vre. Dans chaque pavé, le demi 
caractère est répété à gauche et 
à droite, or &X11 =3. 
Puisque dans chaque octet on 
associe un bit de la moitié droite 
à un de la moitié gauche, il n'y a 
que quatre combinaisons possi- 
bles : 

"00" ( = 0) ; "01" ( = 1) 
"10" ( = 2) et "11" ( = 3) 

C'est pourquoi on n'a que quatre 
couleurs en MODE 1. 
Et que se passe-t-il sur l'écran 
vidéo ? Sur chaque image binaire 
d'un octet (le "tiret"), chaque bit 
1 est doublé, et dans la couleur 
du PEN. Un caractère occupe 
donc deux pavés, et comme il y 
a 80 octets par ligne, cela fait 
bien 40 caractères par ligne 
d'écran. 

En MODE 0, c'est le même prin- 
cipe, mais en divisant par deux, 
un quart de caractère par pavé. 
Pour apparier les bits, on a alors 
16 combinaisons possibles (les 
seize couleurs). A l'écran, chaque 
bit 1 est quadruplé dans la même 
couleur. 



LE HARD 
COPY D'ECRAN 

Il faut que votre imprimante pos- 
sède l'instruction "BIT IMAGE", 
c'est le cas de la plupart des 
imprimantes "à aiguilles" ou 
"matricielles". En usage normal, 
une imprimante traduit l'octet 
reçu en dessinant le caractère 
ayant ce code ASCII, ici c'est 
beaucoup plus simpliste. Les huit 
aiguilles de la tête d'impression 
illustrent l'image binaire de cet 
octet. Ces dessins de bits vont 
être des "barres" verticales, or 
sur l'écran ils sont horizontaux ! 
Il suffit de tourner notre gra- 
phisme d'un quart de tour sur le 
papier. L'imprimante commen- 
cera par le bord vertical gauche 
en terminant par le bord droit de 
l'écran ; le bas de l'écran sera 
donc le long de la marge gauche 
du papier. Ce n'est pas gênant. 
L'auteur utilise une EPSON RX80 
(les modèles FX ont les mêmes 
codes). Si la vôtre est d'une autre 
marque, il va falloir modifier les 
libellés des codes de comman- 
des ; nous légenderons les nôtres 
afin que vous puissiez les traduire 
pour votre machine. Si vous trou- 
vez les mêmes, ne soyez pas sur- 
pris car une bonne quinzaine de 
"marques" sont des EPSON 
rebaptisées. 

Il y a deux programmes diffé- 
rents, pour le MODE 2 et le 
MODE 1 (la version MODE ne 
satisfait pas l'auteur). 
Il s'agit en fait de sous- 
programmes utilitaires (listings 4 
et 5). 



LEGENDES 

DES CODES EPSON 

CHRSf27);CHR$(64) = vide le 
buffer (initialisation) 
CHR$(27);"3";CHR$(24) = 
interlignes de 24/216 de pouce 
CHR$(27);"A";CHR$(8) = inter- 
lignes de 8/72 de pouce 
CHR$(15) = caractères conden- 
sés (1 7 par pouce) 
CHR$(27);"K" = mode bit- 
image 
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avec nous. Vos articles seront rémunérés. 
Votre avis sur ce premier numéro nous 
sera également très utile. 

S. FAUREZ 
Directeur de Publication 



10 ' CONVERSION HEXA --> DECIMAL 

20 INPUT "t,",H( 

30 M=RISHT*("0000"*H*,4) 

40 G*= "S." +LEFT* ( Ht , 2 ) : D<= " ?," +RÎGHTS ( H* , 2 ) 

50 PRINT VflL(G*)*2jé+VPJ J (Dl) 

60 PRINT'.GOTO 20 

70 END 

Listing 1 



100 ' BALAYAGE DE L'ECRAN 

110 «ODE 2 

120 FOR A=49152 TO 45437 

130 POKE A, 3 

140 NEXT 

150 END 

Listing 2 



200 ' 1KA5E BINAIRE D'UN CARACTERE 

210 «ODE 2 

220 CLSlPRINT "aVB/" 

230 FOR A=49152 TO 63491 SÎE D 2048 

240 FOR 8=0 TO 3 

250 CB=PEEK(A*N) 

260 PRINT BINS(CB,8).:". M : 

270 NEXT : PRINT CHRSI13! 

280 NEXT 

290 END 



Listing 3 



55000 'HARD COPY AMSTRAD MODE 1 

55010 PRINT 18 

55020 DIB 2(200) 

55030 PRINT I8.CHRN27) :CHRSi64! ;CHR«(27>; "3" ;CHR 

*(24i: 

55040 PRINT te.CHSf (13) 

55050 PRINT t8,CHRt(15): 

55060 FOR COL=49152 TO 49231 5TEP 2:1=0 

55070 FOR L!=COL TO COL+1920 STEP 80 

550BO FOR T=L1 TO LI+14336 STEP 2048 

55090 I=I + l:Zt=LEFTI!BIN»!PEEK!ÏS,8),4) + LEFTtlB 

iKiï=Jk!^W»): IF 1=200 THEKGOSUB 55.30 

55110 NEXT: NEXT; PRINT »3,CHRt( 13) :NEXT 

55120 RETURN 

55130 PRINT »B.CHRJ(27!:"K".:CHRt!iOO!:CHR(!0): 

55140 FOR J=200 TO 101 STEP -1 

55150 PRINT t8,CHRKZU))::IŒH 

55160 PRINT t8,CHRt(27!:T.:CHRtU0O!:CHR$!O): 

55)70 FOR 1=100 TO ! STEP -1 

55Î80 PRINT tS,CHRS!Z(!)!.::NEXT 

55190 RETURN 



Temps d'exécution 4'15". For- 
mat 112x84 mm. 



Listing 4 



56000 
56010 
56020 
56030 
MB): 
56040 
56050 
56060 
56070 
56030 
56090 
56100 
56110 
56120 
56130 
56140 
56150 
56160 
56170 
56 1S0 
56190 
56200 
56210 

56230 
56240 



'HARD COPÏ (IODE 2 AMSTRAD 
PRINT «8 
DIB ZI200) 
PRINT «S ,CHRt i 27 ) : CHR* ( 64 ) .: CHRt S 27 ! : "fl" ;CHR 



PRINT »8,CHRt(13) 

PRINT »8,CHRi!15i: 

FOR COL=49152 TO 49231:1=0 

FOR LI=COL TO CQL+1920 STEP 80 

FOR T=LI TO LI+14336 STEP 2048 

I=I+l:Z(I)=PEEKIT):IP 1=200 THEN GOSUB 

NEXT :NEXT : PRINT »8 ,CBR( i 1 3 ! : NEXT 

RETURN 

PRINT Dfi,CHRSi27):"K":CHRi(100).:CHRS(0): 

FOR j=200 TO 151 STEP -1;P=Z!J) 

PRINT »B,CHfif!P).:CHRS(0!;:NEIT 

PRINT IB,CHRi!27):"K":CHRtUOO>;CHR»(0i: 

FOR î=1 50 TO 101 STEP -1:P=Z!J) 

PRINT *B-CHRt(P!;CHRS(0); :IIEXT 

PRINT HB.CHR$i27!.: ,, K":CHR)(100):CHRt(0); 

FOR 1=180 TO 51 STEP -1:P=Z!J! 

PRINT te.CHR!(Pi:CHRSiO);:NEXT 

PRINT t8,CHRtl27!:"K":CHRt(100):CHRl(0): 

FOR -1=50 TO ! STEP -1:P=Z(J! 

PRINT DB.CHRÎIP! 'CHRt(O) : :NEXT 

RETURN 



6120 



Temps d'exécution 7'30". For- 
mat 225 x 170 mm. 



Listing 5 



300 ' CODAGE BINAIRE D'UN CARACTERE 

310 INPUT "CARACTERE OU CODE ASCir:Ct :MODE 1 

320 IF yAL!Cl)>32 THEN PRINT CHRtIVALICt ) ! :5PCI2) 

CS:PRI«ï;GOTO 340 

330 PRINT C<;SPC12!;ftSC(Ci!:PRINT 

340 FOR A=49152 TO 63468 STEP 2048 

350 Gf=LEFT*(B!Nt!PEEK(A!,8i,4! 

360 D!=LEFTî(BINi!PEEK!A+l),B),4) 

370 Ct=G1tDl 

380 PRINT C!.:SPCi2!.:VALi"iX"+Ct) 

390 NEXT 

m PRINT:GOTO 310 

410 END 



Listing 6 
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LE PRINCIPE 

On explore des bandes verticales 
de l'écran de largeur 1 octet. Ces 
200 octets sont mis en DIM Z 
puis ils sont retransmis à l'impri- 
mante qui écrit donc une ligne. 
Passage à la colonne précédente 
et ainsi de suite. En jouant sur 
divers paramètres d'impression, 
nous sommes parvenus à resti- 
tuer les proportions hauteur x 
largeur de l'écran (approximative- 
ment). En MODE 0, nous ne som- 
mes pas (encore) parvenus à 
obtenir des dimensions d'image 
imprimées satisfaisantes, d'où 
l'absence de la version MODE 0. 
Très important : en MODE 1 , les 
inscriptions doivent être en 
PEN 1 ou en PEN 3 (pas en PEN 
2) car nous ne prenons que la 
moitié gauche des images binai- 
res (ligne 55090). 



Suite à un petit. bug de la ROM 
de l'EPSON RX 80, nous n'en- 
voyons en "bit image" que des 
suites de 50 ou 100 octets à la 
fois. 



REMARQUE 

C'est aussi pour des raisons de 
proportions d'écran que les coor- 
données graphiques sont de 
640 x 400 alors que logiquement 
ce serait 640x200. 



CODAGE BINAIRE 
D'UN CARACTERE 

Vous voulez définir un caractère 
qui se trouve être un caractère 
existant mais légèrement modifié. 
Vous trouvez fastidieux de redes- 
siner sa grille 8 x 8 et de totaliser 
toutes ces lignes. Alors, utilisez 
les programmes du listing n° 6 



qui fait instantanément tout ce 
travail. 



Tapez indifféremment le carac- 
tère, s'il existe, au clavier ou son 
code ASCII. L'écran vous soumet 
sa fiche signalétique complète, à 
savoir : 

Le caractère, son code ASCII, sa 
configuration binaire en "1" et 
"0" et les totaux de chaque 
ligne. Exemple avec X majus- 
cule : Code ASCII 88, codage 
198, 108, 56, 56, 108, 198, 
198, 0. 

Faites un autre essai en tapant 
251. 

Ce programme refuse certains 
signes de ponctuation tels que + 
- , . &. En ce cas entrez le code 
ASCII. 

Michel ARCHAMBAULT 



60 octets 



49142 
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49232 










o 












II 












CD 












x 












LO 






Trait n' : 


25 du 


l* r passage 




51072 








"a 


: 







65408 



Fig ure 1 



Trait n° 25 du 8*™ passag e /. 
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65485 



Fig ure 2 
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Trait n* 


► 
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49152 
51200 
53248 
55298 
57344 
59392 
51440 
63488 


49153 
51201 
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1 
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■n 

S 
1 
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1 
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49232 
51280 


49233 
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PASCAL FACE AU BASIC 



Dans la bibliothèque des logi- 
ciels pour AMSTRAD, il 
existe un compilateur PASCAL 
relativement performant. Nous 
avons choisi, pour vous montrer 
l'intérêt d'un tel programme, de 
résoudre un problème complexe : 
la transformée rapide de FOU- 
RIER. La version PASCAL compi- 
lée montre bien les performances 
de ce langage face a la lenteur du 
Basic interprété. 



Les deux programmes qui suivent 
sont écrits dans deux langages 
différents : BASIC et PASCAL et 
traitent d'un même problème, le 
tracé du spectre d'un signal après 
calcul de sa transformée de FOU- 
RIER. 

Rappelons que la transformée de 
FOURIER permet d'obtenir une 
représentation en fréquence d'un 
signal. Cette représentation est 
donnée par l'analyseur de spec- 
tre qui visualise l'amplitude des 
composantes d'un signal en 
fonction de la fréquence, alors 
que l'oscilloscope visualise l'am- 
plitude du signal en fonction du 
temps. Lorsque le signal est 
périodique, le spectre se com- 
pose de raies. Il existe différents 
algorithmes qui permettent de 
retrouver rapidement les compo- 
santes de ce spectre à partir 
d'une suite d'échantillons d'am- 
plitude d'un signal échantillonné 
dans le temps. Afin de minimiser 
le nombre des calculs à effectuer, 
nous utiliserons un algorithme de 
transformée de FOURIER rapide 
utilisant la méthode du dédouble- 




ment des échantillons. Mais le 
but de ces quelques lignes n'est 
pas de refaire une étude de la 
transformée de FOURIER rapide, 
mais d'en donner une application 
sur CPC 464 en Basic interprété 
et en Pascal, afin de montrer l'in- 
térêt d'un langage compilé et de 
montrer la souplesse d'utilisation 
du Pascal sur AMSTRAD. 
Dans les deux listings, nous 
retrouvons pratiquement les 
mêmes instructions à la diffé- 
rence de syntaxe près. 
Nous trouvons en plus, au début 
du listing Pascal, les déclarations 
de procédures graphiques néces- 
saires au tracé du spectre et du 
signal temporel. On remarquera 
au passage que l'utilisation de 
toutes les possibilités graphiques 
de l'AMSTRAD est aisée en Pas- 
cal et qu'il en va de même pour 
le son ou les interruptions. Ceci 
est dû à l'existence de variables 
prédéclarées correspondant aux 
registres du Z80 et à la procédure 
USER qui permet comme en 
Basic l'appel d'un sous-pro- 
gramme en langage machine. 
Pour les deux listings nous retrou- 
vons les blocs suivants : 
— Calcul des échantillons d'un 
signal temporel. Ici, c'est un 
signal rectangulaire avec un fac- 
teur de forme de 1/6 sur deux 
périodes ; en Basic, le nombre 
d'échantillons est entré au clavier 
sous la forme d'une puissance de 
deux (ceci est lié à l'algorithme de 
FFT utilisé). En Pascal, ce nom- 
bre est fixé à 256 par la CONS- 
TANTE SIZE ; pour le modifier, il 
suffit de changer l'affectation de 



Biaise PASCAL par QUESNEL 

SIZE. 

— Tracé du signal temporel après 
avoir tracé le cadre. 

— Tri des échantillons en binaire 
réfléchi (nécessaire avant le cal- 
cul de la transformée). 

— Calcul du spectre de puis- 
sance. 

— Recherche de la puissance 
maximale pour calibrer les échel- 
les du tracé du spectre. 

— Tracé du spectre. 

Le programme Basic met 105 
secondes pour calculer la FFT sur 
256 points alors que le pro- 
gramme PASCAL met 20 secon- 
des. Nous voyons donc que le 
gain de temps n'est pas négligea- 
ble. Il faut cependant savoir que 
cet exemple n'est pas en faveur 
du Pascal, car il y a un grand 
nombre de sinus à calculer et que 
le temps de calcul d'un sinus est 
important et pratiquement iden- 
tique en Pascal et en Basic. 
Rappelons que le Pascal utilisé 
est le Pascal Misoft sur cassette. 
Ce Pascal est très intéressant par 
son rapport performance/prix. 
Notons toutefois pour ceux qui 
ne l'ont pas utilisé, qu'il ne pos- 
sède pas la notion de fichiers, et 
que les WRITE ou les READ se 
font vers l'écran et depuis le cla- 
vier. Il ne connaît donc pas 
INPUT, OUTPUT. De même, cet 
exemple ne traite pas les princi- 
paux avantages du langage Pas- 
cal qui sont la redéfinition de 
type, les enregistrements et les 
pointeurs. Nous reviendrons plus 
en détail sur Pascal dans nos pro- 
chains numéros. 
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REPRESENTAT 101 



TEtIPOPELLE 



REPRESENTATION SPECTRALE 



lljll.LlM 



Il.li, 



10 INPU T "nombre d ' echant i 1 lon=2"m: m 

■?" ,m 

20 n=2"m 

25 DIM réel ( n) , imag (n) , puiss în) 

30 n2=n/2:n4=n2/2 

100 k = n/2 

105 '** calcul des échantillons #* 

110 FOR i=l TO n STEP k 

120 FOR j=0 TO k-1 

130 IF j<k/6 THEN reel(i+j)=l ELSE r 

eel ( i+j )=0 

140 imag ( i +j > =0 

150 NEXT j 

160 NEXT i 

165 ' #* trace du signal temporel -** 

200 CLS:M0DE(2) 

210 MOVE 0,200:DRAW 639,200:DRAW 639 

,390: DRAW 0,390: DRAW 0,200 

215 DRAW 0,0:DRAW 639,0:DRAW 639,200 

220 rap=640/n 

225 MOVE 10,220 

230 FOR i=l TO n 

240 DRAW 10+i#rap, 220+100#reel ( i ) 

250 NEXT i 

30O MOVE 40,380:TAG:PRINT "REPRESENT 

ATION TEMPORELLE"; : TAGOFF 

400 "** tri des échantillons *# 

890 j=l 

900 FOR i=l TO n-1 

910 IF i>=j THEN GOTO 980 

920 tl=reel t j ) 

930 t2=imag< j ) 

940 réel ( j >=reel t i ) 

950 imag ( j ) =imag ( i ) 

960 réel ( i )=tl 

970 imag(i)=t2 

980 k = n2 

990 WHILE k<j 

1000 j=j-k 

1010 k=INT(k/2> 

1020 WEND 

1030 j=j+k 



1040 NEXT i 

1060 • ## calcul de la FFT ** 

1080 cl=n 

1120 11=1 

1130 FOR 1=1 TO m 

1140 12=11 

1150 11=11*2 

1160 c=0 

1170 cl=cl/2 

1180 FOR j=l TO 12 

1190 i=j 

1200 WHILE i<=n 

1210 il=i+12 

1220 IF c>n4 THEN GOTO 1260 

1230 ul=SIN(2*PI*(n4-c> /n) 

1240 u2=SIN<2*PI*c/n) 

1250 GOTO 1280 

1260 ul=-SIN<2*PI*(c-n4> /n) 

1270 u2=SIN(2#PI*!n2-c> /n) 

1280 xl=reel < il) 

1290 x2=imag(il) 

1300 IF flag=l THEN u2=-u2 

1310 tl=(xl#ul-x2*u2> 

1320 t2=<xl#u2+x2#ul) 

1330 xl=reel i i ) 

1340 x2=imag(i> 

1350 réel ( il)=xl-tl 

1360 imag( il)=x2-t2 

1370 réel < i ) =xl+tl 

1380 imag( i 1 =x2+t2 

1390 i=i+ll 

1400 WEND 

1410 c=c+cl 

1420 NEXT j 

1430 NEXT 1 

1500 ' #* calcul du spectre de puiss 

ance ** 

1510 FOR i=l TO n 

1520 puiss ( i )=SSR(reel ( i ) ~2 + imag ( i ) * 

2) 

1530 NEXT i 

1540 ' #* recherche de la puissance 

max #*■ 

1550 pl=puiss(l) 

1560 FOR i=2 TO n 

1570 IF pKpuiss(i) THEN pl=puiss(i) 

1580 NEXT i 

1900 ' #*■ trace graphique du spectre 

** 
2000 MOVE 0,0 
2010 FOR i=l TO n/2 
2020 x=10+i*rap*2 
2025 y=20+130#puiss ( i ) /pi 
2030 MOVE x,20 
2040 DRAW x,y 
2050 NEXT i 

2100 MOVE 40, 180:TAG:PRINT "REPRESEN 
TATION FREQUENTIELLE" ;: TAGOFF 
3000 END 
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!0 PR06RAN FFTi 


20 CONST 


30 


size=256; 


40 


puis=8; 


50 


PI=3. 142594! 


60 OAR 


70 


reel:ARRAY[l..sizel OF REAL; 


80 


iMj:ARRAY!1..5iie! OF REAL; 


90 


p:arrayii..sizei of real; 


100 


!,ii,N2,j,k:integer; 


110 


ci,c,li,l,lz,N4:integer; 


120 


ti,t2;re«l; 


130 


ratio,x,y:inte9er; 


131 


ui,U2,xi,X2:real; 


132 


penstatusîbooleanî 


140 




141 


({procédures graphiques*! 


!42 




143 PROCEDURE TOiieU: integer) ; 


151 


BEGIN 


141 


ra:=chrlal; 


17! 


userlibcOe) 


180 EKL'i 


190 




200 PROCEDURE nrolHiiitejeFH 


210 JE6IN 


220 


ra:=chrti)î 


230 


userdbbdel 


240 ENDi 


250 




260 


PROCEDURE paperlilinteger); 


270 SEGIN 


280 


ra:=chr(i); 


290 


userltbbe41 


300 ENDI 


310 




320 PROCEDURE int '. 1 ,cl ,c2: i rteger ) ; 


330 


BEGIN 


340 


ra:=chrti); rb:=chrtcl); rc:=chrtc2) 


350 


userllbc32l 


340 END! 


370 




380 


PROCEDURE plotiX.Ylintegerl; 


390 BEG1N 


400 


rde:=xï rhl:=y{ 


410 


userttbbea); 


420 END; 


430 




440 PROCEDURE 1 infix.y: integsrl ; 


450 BESIN 


440 


rde:=xî rhl:=yî 


470 


userllbbf6l 



480 end; 

490 

500 PROCEDURE pendc.»n(C:lNTE6ER!; 

510 BEGIN 

520 penstatu5:=true; 

530 penfcl 

540 ENDi 

550 

540 PROCEDURE penup; 

570 BESIN 

580 penstatus:=false 

590 ENDi 

400 

PROCEDURE border(cl,c2:inte9erli 

BEGIN 

rb:=chrlcllirc:=chr(c2); 

userltbc38); 

END; 



601 
602 
403 
604 
605 
606 
607 



PROCEDURE «i»dMlcl,c2,ll,12:iitte9erli 

BEGIN 

rh:=chrlcll;rd:=chrlc2]; 

rl:=chr(ll)irel=chr(]2>i 

user(«bb66Ji 
END; 



409 

610 

611 

612 

613 

614 

615 BEGIN 

630 

431 ({calcul des échantillons*) 

632 

k:=size DIV 2i 

i:=li 

UHILE Ksize DO 

BEGIN 

FOR i!=0 10 k-1 DO 

BEGIN 

IF i<k DIV 6 THEN reelli*jl:=l 

ELSE reel[i»jl:=Oi 

iiag[itjl:=0; 

end; 

i:=i+k! 

end; 



633 

434 

635 

634 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 IKrace du signal teiporelt) 

647 

648 iDde(2l; 

649 inkll,0,0);inklO, 13,13)1 

650 border (13, 131 ;pen(l);paper(01; 

651 penup; 

652 Une 10,01; 

653 pendowill); 
454 line!639,01i 

655 line!639,200l; 

656 linel0,2001i 

657 linel0,3991i 

658 line(639,399); 

659 line(639,200)l 

660 line(0,20O); 
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661 


linelO.OII 


662 


pendDnn(0>;llnel20,210) ipendoiindl ; 


663 


FOR i:=l TO 5ize 10 


661 


BE6IH 


663 


xl=Z0*iH640 IIV sizeli 


666 


y:-210tl00tentierlreelli]|; 


667 


linelx,))); 


668 


END; 


669 


»inloNllO,70,l,l)i 


670 


«r i te 1 ■ REPRESENTATION TEMPORELLE')! 


671 




672 U TRI DES ECHSKTILlONStl 


673 




674 


J:=i; 


680 


N2:=SIZE DIV 21 


682 


n4:=n2 DIV 2i 


690 


FOR l:=l TO SIZE-1 10 


700 


BE6IK 


710 


IF KJ THEN 


720 


BESIN 


730 


Tl:=reel[Jl; 


740 


I2:=iH9Uli 


750 


reel[jl:=reel[ll! 


760 


iiaglIlîMiagli]; 


770 


reelIIl:=Tli 


780 


iuqlIl:=T2; 


770 


END! 


800 


K:=Hi 


810 


MILE K<J DO 


820 


IE6IN 


830 


J:=]-KJ 


840 


K:=K DIV 2! 


850 


END! 


860 


J:=j»Ki 


870 


END! 


890 




891 


i calcul de la FFT il 


892 




893 


tf:=5iie! 


900 


Ll:=l! 


910 


FOR L:=l TO puis DO 


920 


BEEIN 


930 


L2:=Llî 


940 


Ll!=LH2i 


950 


c:-Oi 


960 


Ci:=çi Div 2; 


970 


FOR J:=l TO L2 DO 


980 


1EGIN 


990 


l:=Ji 


1000 


HHILE K=5ize DO 


1010 


BESIN 


1020 


Il:=I»L2! 


1030 


IF C<N4 THEN 


1040 


BESIN 


1050 


W:=-SI»(»PIflC-IMl/5i«)l 


1060 


U2:=SINI2»PHIN2-C> /sizeli ' 


1070 


END 


1080 


ELSE 


1090 


BESIN 



1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1281 
1282 
1283 
1300 
1310 
1320 
1321 
1380 
1381 
1390 
1410 
1420 
1430 
1440 
1450 
1460 
1461 
1462 
1471 
1472 
1481 
1482 
1483 
1484 



1)1:=SINI2»PHIN4-C1 /sizeli 
U2:=SINI2fPIK/5ize)! 

END! 
XI:=reelIIlIï 
X2:=iiagIIl]i 
Tl:-IXl«ll-X2tU2l! 
T2:=IXUU2tX2Kll!i 
Xl:=reelIII! 
X2:=iia9lll! 
reelIIll:=xl-Tli 
iia5llll:=XZ-T2! 
retl[Ii:-XMli 
iiag[I]:=X2tT2i 
I:=HLli 
END! 

C:=CtCli 
END! 
END! 

I* calcul du spectre de puissances! 

FOR I!»l TO size DO PIIi^SIRtlreelIIHrBelIIHiiajIIHiiajIIIli 

TI:=P[lli 

FOR I!=2 TO size DO IF TUPII! THEN Tl:=PIIli 

Ittrace graphique du spectret) 

pendDHnlOI! 

linelO.OI! 

ratio:=640 DIV size*2; 

FOR i:-l TO size DIV 2 DO 

BESIN 

x:=20+i*ratio! 

y:=entier(10«150Jlpli]/tllli 

pendDHnlOI! 

linelx, 101! 

pendDHnll)! 

linelx, y); 

END! 

IHM0III10, 70,13,131! 

VRITETREPRESENTUTION SPECTRALE' ) i 

VIND0Vll,80,l,25l; 

END. 



Denis BOURQUIN 





UIM DESASSEMBLEUR 



Voici pour les amoureux du 
langage machine un petit 
désassembleur écrit en Basic qui 
leur permettra, entre autres, de 
percer les mystères du CPC 464. 
Dès le lancement par RUN, un 
choix est demandé par l'ordina- 
teur quant au type de zone où 
doit être lancé le désassembleur 
(RAM ou ROM). 
En effet, dans l'AMSTRAD, la 
ROM n'est pas accessible direc- 
tement, elle se trouve en "OVER- 
LAY" sur la RAM et, pour sélec- 
tionner l'une ou l'autre, une petite 
routine en langage machine est 
nécessaire. Cette sélection faite, 
il suffit ensuite de donner en 
hexadécimal l'adresse de lance- 
ment du désassembleur. 
Dans le bas de l'écran, sont don- 
nées quelques indications sur les 



options disponibles. La plus à 
gauche, intitulée "SELECTION" 
. donne l'état RAM/ROM choisi 
précédemment. Les autres indi- 
cations constituent le mode 
d'emploi. On y trouve : 

ESPACE = Suite 

Le désassemblage se fait par 
page d'écran, et pour poursuivre 
quand ce dernier est plein, il suf- 
fit d'appuyer sur la touche 
"Espace". 

N = Nouvelle adresse 

Après avoir désassemblé une 
page, il peut être nécessaire de 
sauter à une autre adresse. Ceci 
se fait en appuyant sur la touche 
"N" afin de revenir'au menu. 

l-lmprimante ON/OFF 



Si l'on possède une imprimante, 
il peut être utile de conserver 
quelques listes désassemblées. 
Ceci se fait par appui sur la tou- 
che "I" constituant un interrup- 
teur de marche-arrêt de l'impri- 
mante. L'état est donné en per- 
manence au bas de l'écran et au 
lancement du programme, l'im- 
primante est inhibée. Un appui 
sur "I" autorisera l'impression 
des prochaines lignes, un 
deuxième interdira, etc.. 

A = Arrêt 

Sortie du programme et réinitia- 
lisation de l'écran. 

(Les instructions sur IX et IY ne 
sont pas désassemblées). 

Eddy DUTERTRE 
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un tandem d'enfer 



Jeu de rôles en français, 
des milliers de possesseurs 
d'Atmos l'ont apprécié. 
Disponible maintenant 
pour votre C.P.C. 
185 F 



Jeu crarcade aquatique. 
100% langage machine : 
excellent graphisme 
110F 

PLAYBOX 

A vous de jouer : 
AWARI, POKER, POKER PATIENCE, 
MORPION, JACKPOT, 
MASTERMIND, HOLD-UP réunis 
pour vous dans PLAYBOX 
100 F 



Ces logiciels sont disponibles chez votre 
revendeur habituel. 
Distribués par INNELEC : 840.24.31 
et VISMO : 338.60.00 
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C'est au MIT que Seymour PAPERT 
a développé un langage évolué, 
simple d'emploi, offrant pourtant 
des possibilités importantes : le 
LOGO. 

Ce langage est surtout orienté vers 
le graphisme, et est très facile d'ac- 
cès car chaque instruction LOGO se 
concrétise dans le déplacement 
d'une "tortue" à l'écran. L'auteur a 
alors devant lui une image réelle de 
ce qu'il vient de créer, et élabore 
peu à peu son graphisme en s'iden- 
tifiant à la petite tortue qui avance, 
tourne, recule sous ses ordres. 
Le LOGO est en général très gour- 
mand en mémoire ; c'est pourquoi il 
est encore assez peu répandu et uti- 
lisé. Il est pourtant particulièrement 
recommandé pour l'apprentissage 
de l'informatique et de la program- 
mation de par sa simplicité. 
Ce programme est une version sim- 
plifiée de ce langage ; il permet uni- 
quement de faire du graphisme. Il 
est programmé exclusivement en 
Basic : la rapidité d'exécution s'en 
ressent évidemment, mais cela per- 
mettra à tous ceux qui veulent l'amé- 
liorer, le modifier, de le faire facile- 
ment. AMSLOG comporte deux 
modes : 

— le premier est un mode direct : 
vous tapez votre instruction dans une 
fenêtre en bas d'écran, et l'interpré- 
teur Basic l'exécute immédiatement 
dans la fenêtre graphique. On ren- 
tre ainsi ses commandes une à une, 
et le résultat s'affiche au fur et à 
mesure ; 

— le second est le mode "pro- 
gramme" : vous rentrez les instruc- 
tions que comporte votre pro- 
gramme les unes après les autres ; 
vous pouvez ensuite le lister, le 
modifier ou l'exécuter. Les numéros 
de ligne s'affichant automatique- 
ment, il n'est pcs nécessaire de les 
taper. Par contre, il est indispensa- 
ble de bien respecter la syntaxe des 
instructions, notamment pour les 



espaces et les paramètres. 
Quelques spécifications : 

— capacité de programmation : 1 00 
lignes, une instruction par ligne, 

— 20 labels utilisés pour les bran- 
chements et les sauts (label X), 

— 10 variables indicées V(x) [de 
V(0) à V(0)]. 

Voici les commandes de l'éditeur : 
E : exécute le programme. 
L : liste les 20 premières lignes du 
programme. 

LX : liste à partir de la ligne X. 
I : insère une ligne en décalant la 
première ligne du listing à l'écran 
vers le bas. 

D : efface la première ligne du lis- 
ting à l'écran. 

G : permet de passer du mode pro- 
gramme au mode direct, et inverse- 
ment. 

H : donne la liste des instructions et 
leur syntaxe (Help). 
Q : quitte le programme. 
SAUVE : sauvegarde le pro- 
gramme LOGO sur cassette. 
CHARGE : charge un programme 
LOGO en mémoire. 
VAR V(x) : affiche la valeur de la 
variable V(x). 

Les instructions utilisables sont les sui- 
vantes : 

AVANCE x : dessine à l'écran un 
segment de droite de x pixels. 
DIRECTION x : la direction cou- 
rante devient x, x étant un angle en 
degrés. 

DROITE x : tourne à droite de x 
degrés (de même GAUCH E x tourne 
à gauche). 

ORIGINE xxx.xxx : positionne 
l'origine graphique en xxx.xxx 
(attention, il est indispensable de 
taper les coordonnées en 3 chiffres, 
séparées par un point. Exemple : 
ORIGINE 320.200 place le curseur 
graphique en milieu d'écran). 
RECTANGLE xxx.xxx : dessine 
un rectangle dont les côtés mesurent 
xxx et xxx pixels (même remarque 
que pour ORIGINE). 



CERCLE x ! trace un cercle de 
rayon x, et centre le dernier point 
tracé. 

EFFACE : efface l'écran. 
OUBLIER : efface le programme 
LOGO contenu en mémoire. 
SON : produit un BEEP bref. 
MODE x, ENCRE xx.xx, 
PAPIER x, STYLO x, BORD x : 
correspondent aux instructions 
AMSTRAD mode, ink, paper, pen, 
border (attention au mode employé 
pour le nombre de couleurs utilisa- 
bles). 

AFFICHE EN xx.xx chaîne de 
caractères : affiche la chaîne de 
caractères à la position xx.xx. 
V(x) = n : donne à la variable V(x) 
la valeur n. 

CALCUL DE V(x) = V(x) + n et 
CALCUL de V(x) = V(x)-n : 
incrémentent ou décrémentent V(x) 
de la valeur n. 

LABEL x : positionne un label sur 
lequel vont s'effectuer les branche- 
ments et les sauts. 
VA AU LABEL x : saut incondition- 
nel au label X. 

SI V(x) = VA AU LABEL n : 
teste si V(x) = 0, et si c'est exact, se 
rend au Label n. 

FIN : obligatoire en fin de pro- 
gramme. 

REMARQUES 

— Toutes les instructions graphiques 
sont paramétrables à l'aide des 
variables V(x), 

— à l'origine, AMSLOG, se trouve 
en mode programme, 

— après un L ou un Lx, la ligne cou- 
rante est la première du listing, 

— pour modifier une ligne x, il suffit 
donc de taper " Lx" puis la nouvelle 
ligne à la place, 

— si jamais le programme se 
"plante", on peut le redémarrer par 
un "GOTO 800 " sans perdre le 
programme LOGO en mémoire, 

— de même, il est possible à tout 
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moment de passer du mode direct au 
mode programme et vice-versa, sans 
perte du programme LOGO en 
mémoire. 

Enfin, voici quelques exemples de 
programmes courts et simples, illus- 
trant les possibilités de l'AMSLOG, 
et qui vous serviront d'exemples 
pour l'apprentissage du langage. 

1 efface 

2 V(1) = 36 

3 Label 1 

4 avance 90 



5 droite 110 

6 calcul de V(1) = V(1)-1 

7 si V(1) = va au Label 2 

8 va au Label 1 

9 Label 2 

10 son 

11 fin 

Exécutez-le, puis entraînez-vous à le 
modifier (à titre d'exemple, tapez 
"DROITE 50" au lieu de "DROITE 
110"). 

1 efface 



2 V(l) = 25 

3 Label 1 

4 rectangle 100.050 

5 droite 1 15 

1 efface 

2 V(l) = 36 

3 Label 1 

4 rectangle 100.050 

5 droite 110 

(La suite de ces deux programmes 
reste la même que celle du premier.) 

Stéphane CLOIREC 



î • nmtnnnttttttnttttmtttt 



m 

va 
m 

m 
m 



PRESENTATION 



m. 
tu 
m 

m 

m 



tttnttttttttttmtmnmntt 



10 BORDER 0:INR 0.0 

20 DIB PAL(14):F0R 1=0 T0 !4;READ PALU!;INK I + l.p 

AL(I):NEXÎ 

30 DATA 3,6.15,24,25,22,21,12,13.1.2,5,4,14,26 

40 N0DE 0:CLG OlPAPER OlPEN 14 

50 0RIGIN 320,250 

60 FOR J=48 T0 108;I=BPI/52;HOVE COS(I)*220,SIN( I 

)tl60-40:DRA» 0.0, J «CD 13+1 : NEXT 

70 FOR 1=3 Î0 23IFOR K=-1!0 10 110 STEP 220:I=»PI 

/26IÎ10VE COS(I)»100tK,SIN(I)»80-20;DRAB O.O.IJ+UK 

=1 îOJflND 41-2) 1100 13+U1EXÎ K,J 

80 L0CATE 8,2:PRINT"ABSLOG":ORIGIN 220 , 392 :DRft¥R 1 

97,0;DRA5!R 0,-32'DRAit'R -!?7,0:DRA«R 0,32 

90 FOR K=l T0 10,'FOR 1=1 T0 1 3 : FOR 1 = 1 T0 13 

100 INK I ,PAL( ( J+DH0D 13): NEXT I,J,K 

110 L0CATE !,25:PRINÎ'Charqeient en cours" :RUH" !" 
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i20 SYBBOL AFTER 


165ISYBBOL 166,J,6,i8,8..3C.U6,!JE, 


4.60.!,3C:KEY 131, 


CHRS(166) 


130 G0SUB 2650 




140 
150 
140 


G0SUB 22B0 




DIB itdOO! 




170 D!B 1120) 




180 DIB v(10) 




190 
200 
210 
220 
230 


G0I0 930 




' t:»»M«INTERPRETEUR*M:tt»» 


co=l:d=0 




240 


IF coMOO THEN 1790 


250 cf=!iicol 




260 


IF LEFTt (ci 


4! = "i0de" THES PEN 1 : PAPER 0:BODE 


VAL 


ŒIDiict.o)! 


d=0:za=320:zb=200:ORIGIN za,ib:G0 


T0 490 




970 



IF LEFTI (ci 


4>="bord" THEN GOSUB 2010:GOTO 49 
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260 IF LEFTS fc*,5)=»smcfe' THEN GOSUE 2070:GOTO 4 

90 

290 IF LEFTS ic>.6!="oapier" THEN GOSUB 2Î10;G0T0 

490 

300 IF LEFTS Sc*,5i=*stYlo - THEN GOSUB 2S50:GOTC 4 

90 

3!0 IF LEFTS (cS,è)='avance" ÎHEK SOSIffi 5 10: GOTO 4 

90 

320 IF LEFT» !cS,t)="*oite" OR LEFTS ?cS.6)="qauc 

he" THEN GOSUE 560; GOTO 490 

330 IF LE™$ tct,3l=*ffii" THEN 1790 

340 IF LEFTS i c S,6!="efface" THEN OLS»0:GOTO 490 

350 IF LEFTS ; cî , 9)="d i rect ion" THEN GOSUB S870:GO 

TO 490 

360 IF LEFTS kS.7i="or mlpe" THEN GOSUE !930:GOTO 

490 

370 IF LEFTS trâ, il I = "va 5U label" THEN co=!iVftL ! 
XIDS «cS, 135 i i ;50T0 490 

330 IF LEFTS :cS.2!="vi" THEN viïftL (Î1ID* le», 3,1! 
))=?*L t«ID» (cS,6!!;GQTO 490 
390 IF LEFTS !cS,5!='si v(* THEN GOSUB 880:G0TO 49 


«00 IF LEFTS ics.9! = "cakul de" THEN vHfflL «NIDS ! 
^s,13,im=v(VAL ŒÏDS kt,13,l»HV«L iNIDS !CS,2 
0!):GOTO 490 

410 IF LEFI» icS,5!="îiste" THE» p=VftL iHIDS icS,7 
SllKBUB 1270:GOIO 490 

420 !" LE e TS irs,7i = "affiche" THES LOCftTFJ^f >aq,ïft 
L mÏM ic»,!2,2)i,VftL iMIDS (et, 15,2! ! iPRINÎIgfla 
c,HIDSicî,18!:GOTO 490 

430 IF LEFTS !rS,3) = "5Qn" THEN SOUND 1,89; GOTO 490 
440 IF LEFTS i-ct.f !=»rect-»no!e" THEN GOSUB 680:GOT 
490 

450 IF LEFTS(cS,6!="c=rcl£ : THEN GOSUB 1630:GOTO 4 
90 

460 IF LEFÎi;c»,5!=" label" THEN GOTO 490 

470 IF gflaq=t THEN 2S90 

480 50T0 1610 
490 co=co<-! 
500 GOTO 240 

F 3 ' 

520 ■ ïittnttnvuKEttfmttt 

540 IF NIDS !cS,8,l! = "v" THEN xa=3IN idSJviVfiL (Kl 
OS frS,10,l))i;iib=COS (d)iv(VAL (HIDS (d, 10,11)): 
DEfiï xa,xb,ct)iil:ia=xa+za;ib=xb+ib:ORIGIN za,ib;RET 
"RN 

550 xa=SIN IdlUVfiL iNIDS k$,B));xb=COS (d)WflL SB 
IDS !c*.8)):DRM xa.xb.coul :za=xa*ia:ib=xb+ib:ORÏG 
IS iî.2b;RETURN 
565 ' 

570 ' îîîi*f«*DROITE/GâUCHE"«»«* 
580 ' 

590 IF Kl"SkS,B.l!="y" TKEN GOTO 640 
600 IF LEFT! !ct,i!="d" THEN d=d+(VflL (NIDS Ce*, 8! 
)! ;RET1SN 

HO IF LEFTS !t$,l)=*g" THEN d=d-(VflL iNIDS le», 8! 
iJlBETIHN 
620 GOSUB 1650 
630 RETURN 

AiO IF LEFT) !:S,!! = "d" THEN i-HivîXL («IDS ici , 1 
Ô,li);;REÏUHN 

6 C IF LEFTS ic«,l)=V THEN d=d-yiïfiL (NIDS ;c$,l 
0,l))!:REÎlffli 
660 GOSUB 1650 
670 RETURN 
680 ' 

690 ' «»SJ»RECÏMSLE»m«« 
700 ' 

710 IF MIDSicS, 11, ;!="¥" OR BIDSCcS,!5.S!="v" THEN 
GOTO 770 



720 10=VAL (NIDS (et ,11,3)) : 11=VAL iNIDS (cS,15)) 
730 ORIGIN ia,ib:aa=SIN(d!tiO:Kb=COS(d! *10;DRft¥ xa 
.xb.cou! :za=za+xa:zb=zb+xb:ORIGIH 2a, 2b 
740'd=d+90;»a=SIN(dlt];;xb=COS!d)tll;DRftï xa,xb,co 
lil ;za=2a+xa;zb=2b+;<b:0R!GIN 2a, 2b 
750 d=dt90;sa=SIN(d)ïlO:xb=COS(d)*!0:DRAt» xa.xb.co 
ul ;z2=2a*xa;2b=2b+sb;0RIGIN 2a, 2b 
760 d=d+90:>;a=S!Nidmi:xb=COS(d)*U:DRM xa,xb,co 
u' :'a=zatxa:zb=zb+xb;ORIGIN za,zb:d=d+90:RETURN 
'70 IF ï!!OS(cS,!l.l)='v" THEN IF NID»(cS,16,l)="v" 
THE» 10=ïlVftL!3IDSicS.13,l!l);H=v(VftLîi1IDSIcS,18 
,10) ELSE 10=v(VALŒIDS(c$,13,l)));Il=V*L IMIDS ! 
,- S , 1 6 ) ï 

780 IF NIDS(cS,!5,li="ï" THEN 10=VAL (NIDS (cS,ll, 
3i;:H=ïiVflLSHlDSicS,17,lil! 
790 GOÎO 730 



ïiîïtLS; 
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830 FRINÎ "PREPARATION DES LABELS" 

«0 FOR n=1 TO 100 

350 IF LEFTS !i»Î!)!,5)='!abe1" THEN UVAL (MIDS îi 

Bifl NEXT n 
870 GOTO 200 



tt»»«*«TESîa*»»t* 



900 



910 IF vîVAL iHIDS (c$,6,l)))=0 THEN cd=î (VftL (NID 
S ( c$,23)>) 

920 RETURN 

930 ' 

040 ' m:mœEDÎTEUR«»*tt« 

950 ' 

960 GOSUB 2280 

970 0=1 

980 INFUT resS;cS=LO'sERS(repS!;IF cS="" THEN GOTO 

'80 

990 t=0:c$=c«+" ":za=320;zb=200:ORIGIN 2a,2b;d=0 

1000 IF c8="5auve " THEN GOTO 2370 

1010 IF c»="chafqe " THEN GOTO 2510 

1020 GOTO 1080 

1030 iS!p)=cS 

1040 IF c$="oùblisr " THEN SUN 

1050 PEINT ChlSHDCHRSilDp;" ": i$ip! 1PRINT SFC(7 

9!:PRINT 

1060 p=p+l;IF [=101 THEN p=100 

1070 GOTO 980 ' 

108O ' 

1090 ' m«S«QRDRESmtt«« 

1100 ' 

1110 IF LEFTS !c»,2!="1 "THEN GOSUB 1210 

1120 IF c$=*i " THEN GOSUB 1350 

1130 IF cS="d " THEN GOSUB 1450 

1140 IF c$='e " THEN GOTO 800 

1156 IF cî='q " THEN END 

1160 IF c$="g " THEN GOTO 2190 

1170 IF CS="Fi "THEN GOSUB 2960;GOTO 930 

1180 IF LEFT» !c»,3!="var" THEN GOSUB 1530 

1190 ÎF t=i THEN GOTO 980 

1200 GOTO 1030 

1210 ' 

1220 ' «»::»«MLISÏEm«tt« 

1230 ' 

1240 CLSlIF LEN !cS!=2 THEN c»=c$+"l" 

1250 a=VAL iNIDS icS,3!) 

1260 IF p>100 THEN GOTO 1320 

1270 FOR n=p TO c+1? 

1290 TF ri>!00 THEN GOTO 1320 

1290 IF LEFTS ! i Sin! ,3>="f in" THEN PRINT;PRINÎ' ".; 

li;n);»du proqra.».":GOTO 1320 
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1300 PRINT n; : IF n<10 THEN PRINT" ";i*(n) ELSE PRI 

NT i((n) 

13 10 NEXT n 

1320 1=1 

1330 LOCATE 1,24 

1340 RETBHI 

1350 ' 

1-60 ' mmmnEEBnottmmtt 

1370 ' 

1380 1=1 

1390 FOR n=99 TO p STEP -1 

1400 iS(n+li=iS(n! 

1410 NEXT n 

1420 iS(p)=">" 

1430 c(="l "tSTRf (p);GOSUB 1240 

1440 REÎURN 

1450 ' 

1460 ' «««mDELETEMS:»»tt 

1470 ' 

1480 FOR n=o TO 99 

1490 iS!n.! = iS(n+l);NEXÎ n 

1500 iS(100l=" " 

1510 cl=*i "+STRS (p!;GOSUB 1240 

1520 RETL1RN 

1530 ' 

1540 ' nmtmmitammmm 

1550 ' 

1560 CLS 

15T0 PRINT " v ( " ; M I D S S c S . 7 , ! ) ; " l = ° ; v ! V'ftL (MIDS ici. 

7,l)n;l=l:R£TURN 

15S0 ' 

1590 ' «««JMERREURSttmm 

1600 ' 

1610 CLSlPRINT "Instï-uction: ";cl;PRINÎ 'Erreur e» 

ligne "IcolFQR pa=l TO 2000:NEXÎ pa:cl="l "*Sïfis 
(csilGOTO 990 
1620 ' 

1630 ' m*««ANGLESWÎ*tt» 
1640 ' 

1650 !F d>360 THEN d=d-360 
1660 IF d<0 THEN d=d+360 
1670 SETÏÏRN 
1680 ' 

1690 ' *Mtt«MCERCLEM»*»tt 
1700 ' 

1710 IF HID*(cS,8,l)="v" THEN 1770 
1720 r=VAL(HIDS(cS,8!) 
1730 FOR i=0 T0 360 
1740 PLOT r*SIN( i ! ,r*COS( i ) ,coul 
1750 NEXT i 
1760 RETURN 

1770 r=ï(VM.(l!ID«!c«, 10,1)1) 
1780 GOTO 1730 
1790 ' 

1800 ' ttïmœCOBNANDEMMtttM 
1810 ' 
1820 INK 1,0:PEN liLOCATE 1,25: INPUT"COHMANDE — > 

",repS:ct=LOi<ERS!repS) 
1830 IF cS="e u ' THEN GOSUB 2280IGOTO 800 
184Q IF LEFÎ»(c$.l)=TÎHEN cS=c$*" TSfiSUB 22R(l:r. 
OTO 1080 

1850 IF cS="q" THEN GOSUB 22S0:END 
1860 LOCflTE 1.25;PRINT SPC!7S):GOT0 1790 
1870 ' 

1680 ' tttttt«fflISECTION/ORIGINE*tt*ttm 
1890 ' 

1900 IF «IDSiCî,l!,!)="v" THEN 1920 
1910 d=VAL (NIDS (cS.llHiREÎURN 
1920 d=vîVALfMÎDS!cS,13,l!)!:RETl(RN 
1930 ' 
1940 IF HID*(c*,9,l)="v" OR HIO*(c*,13,ll=*¥" THEN 



1980 

1950 2a=VAL (BIOS ici, 9, 31) 

i960 ib=VAL (NIDS ici, 13, 3!) 

Î"C GRIGIN ia.2b:RETURN 

933 IF RiD»(ct,9,l!="v" THEN IF MDS(cS,14,l)=V 
THEN 2a=v(VAL (HIOS fcS,li,i)!>!ib=v!VflL iHIDS te 

1.16,1)!) ELSE ia=vi"âL iBID* te», 11,1) ii : ib=VAL i 

MIES ici, 14, 3!) 

1990 IF S!DS(cS,!3,i)='v' THEN 2a=VAL (NIDS ici.», 

3)>:ib=vtVAL (NIDS te», 15.!))) 

2000 CHIGIN ia.ib;RETURN 

2010 ' 

2Î20 ' *ttMmt80RD/ENCRE/FAPIER/SîYLO«»îmî 

2030 ' 

2040 IF r!IDi(c$.6,l!="¥" THEN 2060 

2050 BORDEE VAL(HIDt!cS,6) ! ;REÏURN 

2060 BORDES viVAL(B!OSicS,e,i ! ) ! ; RETURN 

2C70 ' 

2080 IF MIDS!cS,iO,i!=V' THEN GOTO 2100 

2090 INK VALiMIDS(cS,7,2n,VAL!MIDSicS,I0)!:REÎlM 

2100 INK VSL(HIDS(cS,7,2)).viVALiKDS!cS.!2,ti)>;R 

ETURN 

2120 IF S!DSicS,8,l!='ï" THEN GOTO 2540 
2130 PAFERtgf)ag,v'ftL(MIDSicS,8i):CLS;RET!iRN 
2140 F«PERSqf!ap,v(VftL!?iiDS!cS,10,l!!);CLS:RETURN 
2150 '' 

2160 IF KIDS(cS,7,l!="v" THEN GOTO 2180 
2170 PENï8fiaq,VftLin!DS(cS,7!):r D M]=VftL(r!iDSt-i,7i 
!:RETERN 

2180 ?EN*qf ! ag,viVALiHiDS'c1. 3 .ii)i;coul=viVfiL(MtD 
î'cS.o.imiRETURN 
2190 ' 

2200 ' ïtMttmtKODE DiRECT«i«tt« 
2210 ' 

2220 GFLftG=i 

2230 CLS.ïINDCS !,80,23.25:PAPER i ;PEN »;CLS 
2240 PRINT; INPUÎ "Coraaride — > Vep*:cS=LQïERSfre 
PS) 

2250 IF c«='e!face" THEN PEN ÎIPAPER 0:HODE 2;GOTO 
2190 

2260 IF ci="g" THEN G0S113 2280 :afUo=0: GOTO '30 
"270 GOTO 260 
2280 ' 

2290 ' ttinnnmTïMASSiTimtttttttt 

2300 ' 

2310 «ODE 2 

2320 23=320 : ib=20Q I cf=0 

2330 ORIGIN 2a, 2b 

2340 INK 1.0:IHK 0,13 

2350 PEN 1; PAPER 0; BORDER 13 

2360 RETURN 

2370 ' 

2380 ' ai«t»SAUVEGARDEM»*tO 

2390 ' 

2400 CLS; PRINT" SAUVEGARDE DU PROGRAMME" 

2410 PRINT" " 

2420 LOCflTE l,!0;INPUT"Entre2 le nos de vôtre ppog 

fasse ; ".noiïiS 

2430 LOOATE 1,I8;PRINT" Veuille: patienler," 

2440 PRINT"Sauvegarde en cours... ";PR! 

NTiPRINT 

2450 OPENOUT nonS 

2460 FOR bc=l TO 100 

2470 PRINT#9.il(bc! 

2480 IF S(bc) = "f:r"THEN bc=101 

2490 NEXT bc 

2500 CLOSEOUT;GOTO =30 

2510 ' 

2520 ' MMntïCKfiRGEHENTMÎHattt 



43 



2540 CLSlFRINrCHftRGEîïBiT DU PROGRAME" 
2550 PRINT" " 

2560 LOCATE 1,10: INPIirEntrez le no» de votre prog 

ramse : ",ncmî 

2570 LOCATE 1,1B;PRINT" Veuillez patienter," 

2580 PRINÎ"Chargsient du proorane ":nomi;" en cou 

r5..,*:PRIHT:reiST 

2590 0PENIN ' 

2600 FOR bc=l TO 100 

2610 INPLTO.Utbc) 

2620 IF iS!bc)="fin" THEN bc=101 

2620 NEXT bc 

2640 CLOSE 18: GOTO 930 

2650 ' 

2660 ' œ«W*PRESENTMIONmS«tt 

2670 ' 

2680 RODE 0: INK 3,1,5: IMK 1,1: IHK 0,0:BORDER 

2690 ch$='fl«SLOG" 

2700 ORIGIN 186, 34": DRAW) 204,0,1 

27S0 DSAÏR 0,-34:DRA»R -202,0:DRA»R 0,34 

2720 PES 3 

2730 FOR 1=1 10 6 

2740 cd«=lîIDS(ch$,i,i) 

2750 LOCATE 6+i,5:FRINT cd* 

2760 SOUND 1,89+1*10 

2770 FOR pa=l TO 100:NEJT pa,i 

2780 PSN 1 

2790 LOCATE 2,15:PRINI*Lanqaoe Graphique" 

2800 LOCATE l,S7;PRlKÎ"Studiî, pour le D.A.O" 

2810 INK 2.3:PEN 2:LOCATE 2.20:PRINT CHR$(164! + ' S 

tiphane CLOIREC" 

2820 LOCATE 2,24:INK 4,9:PEN 4;PR!NT"Instructions 

(MB?" 

2830 repS=INKEY$:ri=LO»ER*(reDt):IF rJ=V THEN RE 

TURN:IF rS="o" THEN GOTO 2860 

2840 IF r*="c" THES GOTO 2360 

2850 GOTO 2830 

2860 HODE 1 

2870 ÎSK 1,11: PEN 1 

2580 LOCATE 5,1:PRINÎ "«*« ARSLDG: Instructions t 

n%t" 

2890 LOCATE 1,4:PRINT" Ce programme est une adap 
talion siffl- -ptififcë du langage LOGO." 
2900 PRINT:PRINT:PR1NÏ" Il colporte deux «odes d 
I f f î-.ren t= : - un mode direct îl'ordinate 
ur interprète iralidiateiiést les ordres que vous lu 
i fournissez)" 

2910 PRINT:PRINT" - un «ode programme (il 
stocke alors les instructions sous forme d' un lis 
ting pour exécution ulUrieure)" 
2920 PRMT:PRINT;PRIMT" Un iditeur de texte vous 
periet ausside modifier vos programmes (supprimer 
et insérer des lignes, lister, exécuter,., I e 
2930 LOCATE 1,24:PRINT "Tapez une touche": LOCATE 3 
5,24;ISK 2,li,0:PEN 2: PSI HT "->" 
2940 r$=INKEYi:!F r<0" THEN GOTO 2960 
2950 GOTO 2940 
2960 BODE !:PEN 1 

2970 PRINT " Voici !a liste des instructions:" 
2980 PRINT:PR!HT:PRINT"H ;affiche les instructions 
uti!isables":PRINT"L :ïiste les 22 premières lign 
es. L x:]iste a partir de la ligne :-:." 
2990 PRINÎ"I ; insère un espace entre deux lignes e 
n décalant la 1ère ligne du dernier iistin 
g vers le bas," 
3000 PRINT"D isupprije la 1ère ligne du dernier 

listing et remonte toutes les autres d'une 
ligne. 

3010 PHINT'E :exicute un programme." 
3020 PRINT'Q : quitte le programme." 
3030 PRINT'SAUVE sauvegarde le programme sur k7," 



3040 D R!NT"CHSRGE Mit un programme sur k7." 
3050 PRINÎ'Vffl Six) :affiche la valeur de la 

variable v(>:)" 
3060 PRINT'OUBLIER :perd le. programme' 
3070 LOCATE i,24:PSINT*Tapez une touche" :LOCATE 35 
,24:?EN 2:PRINÎ"— >" 
3080 r*=IMEYt:IF r!0""THEN 3100 
3090 GOTO 3080 
3100 CLS;PEN 1 

3110 PRINT" flode programme." 
3120 PR!NT:PRINT"V!x!=n :donne a la variable v(x) 
la valeur n," 
3130 PRIST'DIREGÏION n :1a direction en cours 

devient n." 
3140 PRINT'ORIGINE nnn.nnn: 1 'origine du graphisme 
est plac&e au coordon- 
nes nnn.nnn" 
3150 PRISTEFFACE :efface l'(,cran." 
3160 PRiliT'ENCRE xx.nn :donne a l'encre xx la va- 
Heur nn." 
3170 PRLMT'PAPIER xx :1e papier prend la couleur d 
e 1 'encre xx," 
3180 PRINT'SÏÏLO xx :1e stylo prend la couleur de 

1 'encre xx." 
3190 PRISÎ'BORD nn :1e bord de l'icran prend la 

couleur nn." 
3200 LOCATE I,24:PRINT"Tapez une touche" :LOCATE 35 
,24:PEN 2:PR!NT"->" 
3210 r*=IHKEÏt:IF r!0""THEN 3230 
3220 GOTO 3210 
3230 CLSiPEH 1 

3240 PR;NT"ftFFICHE EN nn.nn :&crit en nn.nn ce gui 
est aff ichS, a la ligne 
suivante du programme." 
3250 PRINT'LABEL n positionne un label (utilisd 

pour les sauts)" 
3260 PRINT"S0N : f a i t un son bref et aigu" 
3270 PRINT"AVANCE x : avance de x pixels dans la 

direction en cours." 
3280 PRIlfPGAUCHE x : tourne a gauche de x degris." 
3290 PRINT"DS0ITE x :tourne a droite de x degrîs." 
3300 PRINTTIN :fin du programme." 
3310 PRINT'VA AU LABEL x :saute au label x." 
3320 PRINT-SI V(x)=0 VA AU LABEL x :saut au label 
x si v(x) &.gale 0" 

3330 PRINT"LISTE x :1 iste le programme a partir de 

la 1 igné x." 
3340 PRINT'CALCUL DE V(x)=... :v(x) prend la valeu 
r de ce qui suit le 

signe igal." 
3350 LOCATE l,24:PEINT"Tapez une touche" ;L0CATE 35 
,24:PEN 2;PRINT"-->" 
3360 r$=INKEY«:IF rtO""THEN 3380 
3370 GOTO 3360 
3380 CLSiPEH ! 

3390 PRINT'RECTANGLE xxx.xxx :trace un rectangle d 
e cotks xxx et xxx." 

3400 PRHIT'CERCLE xxx :trace un cercle de rayon xx 
x" 

3410 PRINT:PRINT:PRINT" Tous les trac&s ont pour 
origine le dernier point inscrit. 

De plus, il est possible de paraaMrertoutes 
les instructions avec les varia- -blés v(x)." 
3420 PRINT:PRINî:PRINT" Vous aller maintenant po 
uvoir cosmen — cer a programmer en AMSLOG.Vous verr 
ei qu'il est possible, avec de très courts program 
mes, de crier de superbes graphi s—mes." 
3430 LOCATE 1,25:PRINT "Tapez une touche" :LOCATE 3 
5,25;PEN 2;PR!NT "->" 
3440 IF INKEYK)"" THEN RETUBJi 
3450 GOTO 3440 



WJAWKiS 



LOOCŒU' 





GESTION 
DE FICHIERS 

200 fiches. 20 rubriques pcrfiche. 



150 F MULTIGESTIONS 195 F 



■3< * ™ ■ 




CPGRAPH 150 F 



Toutes gestions, fomi/iales-fmandères- 
faoncaires sous forme de tableur éfecfro- 



Utilitaire graphique pour la visualisation 
graphique des postes établis à partir de 
muttigestion ou d'un autre programme. 




GESTION 
D'ENTREPRISE 

Utilitaire. Journal des ventes, ochafs. 
Trésorerie (un programme pra). 




GESTION 
DE STOCKS 

^ jusqu'à 700 article 



245 F 



245F 

gomme crayon. Axonoméfrie 




MULTICALC 

THOMSON T07 - TO7/70 - MQ5 

Tableur électronique. Disco-Graph-Hist- 
Calq. — 

BSSU 
3701 




MULTICALC 
ORIC-ATMOS 

Tableur électronique. Tri- Hisf-Sfof- Calque 



190 F 




Disponible chez votre revendeur habituel ou par 
correspondance en retournant le bon ci-dessous à : 
CORE, 112 place des Miroirs, 91000 EVRY 
Tél. : 077.71.21 
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NOM: PI*™.: 

RUE : Vf: 

ÏILLE : CODE POSTAL : 

TÉL.: 



Nbre 



PRIX 



TOTAL 



AMSTRAD 








+ 30 F PORT 


THOMSON 








+ 30 F CATALOGUE 


ORIC 








SIGNATURE 



PAIEMENT : D A LA COMMANDE a CONTRE-REMBOURSEMENT 



POUR VOUS 



LES SYNTHETISEURS DE FREQUENCE 

Michel LEVREL - F6DTA 125 F 

COMMUNIQUEZ AVEC VOTRE ZX81 

2° 2DITI0N 
DENIS BONOMO fc Eddy BUTERTRE 90 F 



EÏTENSIONS DU ZX Ôl 

collection poche E . DUTERTEE 48F 

COMMUNIOUEZ AVEC ORIC ET ATMOS 

Denis BÛNOMO & Eddy BUTERTRE 145 1 

PROGRAMMES POUR ORIC 

EJACÛB 6, J.FORTELLI 

NAVIGUEZ SUR ORIC ET ATMOS 

collection poche E.JACOB & J.FORTELLI 45F 

APPRENEZ L'ELECTRONIQUE SUR 
ORIC ET ATMOS 

Pierre BEAUFILS 110F 



MIEUX PROGRAMMER SUR ORIC 
ET ATMOS 

Michel ARCHAMBAULT 



JOUEZ AVEC HECTOR 

2° édition - Eddy BUTERTRE 

JOUEZ AVEC AQUARIUS 

collection, poche - L.GENTY 



110F 



48 F 



45F 



LES MYSTERES D'ALICE OU LA PRATIQUE 
DU 6603 

Une des meilleures critiques de la presse professionnell* 
Alain BONNE AUD 1 

LES MYSTERES DU LASER 

Denis BOURÛUIN 



'(.""'"''■il',.;..:*] 



thévric 



EN PREPARATION SORTIE EN IUIN 



MIEUX PROGRAMMER SUR AMSTRAD 

Michel ARCHAMBAULT 85 F 

PLUS LOIN AVEC LE X07 

Michel GANTIER 85 F 

APPRENEZ L'ELECTRONIQUE SUR MSX 

Pierre BEAUFILS 95 F 

APPRENEZ L'ELECTRONIQUE SUR AMSTRAD 

Pierre BEAUFILS 95 F V 

Ht 
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Cira BUREAUTIQUE 32 

PRESENTE L'AMSTRAD CPC 664 
QUALITE «PRO» 

1 





C H AVON OPTIQUE 

DE L'AMSTRAD 
RÉSOLUTION EGALE AU NOMBRE DE CARACTERES 




_ 75 -1200Baua 



duplex. à numérotation 



_1200_1200Bauds Half duplex 



ligne PTT par fichas gigogne; 



RS232 E/S il 



(Fabrication Micro Bute, 



r 



pour 8480 F ttc 



i cpc 664 

Avec lecteur disquettes 3' intègre 
1 DRIVE 3" 1 / 2 1 Mega Octets 




ris 32 



« 






Jr 



COUPON-RÉPONSE 



Intéressé par : □ contact 



Raison sociale 

N° Adresse 

Code postal 



D distribution 
□ commande 
Téléphone 



tion BUREAUTIQUE 92 

67, boulevard Gallieni 921 30 ISSY-LES-MOULINEAUX 
(1)642.42.10 Télex MIBURO 200838 F 

MM BUREAUTIQUE 92 

13, boulevard de la République 92250 LA GARENNE-COLOMBES 
(1)784.21.77 

lira BUREAUTIQUE 92 ANTILLES 

Patio de CLUNY. 1 « étage 97233 SCHOELCHER 
® 60.53.83 F.D.F. 






20, rue de Montreuil 94300 VINCENNES - Tél. : (1) 328.22.06 

OUVERT OU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19 h 



REVENDEUR OFFICIEL AMSTRAD FRANCE 



CPC 664 

□ avec moniteur couleur 

□ avec moniteur monochrome 



2X> 




CPC 464 

□ avec moniteur couleur 4490 F 

□ avec moniteur monochrome 2990 f 



•D 



8 bits interface primer 
□ grâce à cet interface vous pouvez enfin faire du 
ir taule imprimante 299 F 



Rallonge alimentation ■(- video 

D ne soyez plus collé a l'écran, rallonge 130 F 



□ Adaptateur péri tel 390 F 



K> 



Synthétiseur vocal AMSTRAD 
Enfin votre AMSTRAD peut s'exprimer! Anglais d'ori- 
gine il gardera son accent mais, grâce à un programme 
hasic, vous dira "bonjour", "gagné" ou vous apprendra 
l'anglais ou l'allemand 
D synthétiseur vocal. , 495 F 

Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard "centronic" 
D câble imprimante 150 F 




Carte E/S 

Vous permet de commander moteur, relais, lampe, 

sonnerie, projecteur 



[ i H 



Carte E/A AMSTRAD "* 1 " 

Pour transformer votre AMSTRAD en centrale de me- 
sures. Possibilité de brancher plusieurs cartes 
D carte 8 E/A. 395 F 

D support moniteur 198 F 




D Rallonge bus souple 195 F 

D housse pour moniteur et U.C 150 F 




Rallonge Joystick 

"Éclatez" vous sans rien arracher ! 

D rallonge joystick 1,20 m 120 F 



Magnétophone 

Ce magnétophone spécialement conçu peur les 

micra-ordinateurs vous évitera bien des soucis. 

Entrée DIN ou Jack. Niveau réglable. Témoin 

sonore et lumineux. Alimentation intégrée 

□ magnétophone 495 F 



• ■ LOGICIELS CASSETTE 

□ ghostbuster... 140 F □ roland Oiggmg . 1 DO F 

□ androïd .... 120 F □ roland lasceaux.. 100 F 

M battle for modway [notice tr.) . . . , 145 F □ roland oubliettes 1 00 F 

□ ksri's treasure liant 90 F □ roland on the run 100 F 

□ ériethe viking .175 F É roland m urne 100 F 

kVighter piiut 110 F □ stress 120 F 

Jflightpath )M 100F □ techni d- mi 10Q F 

Dstrippoker 120F □worldw.ir3 95F 

Dpyjamarama 100 F □ monopole 115 F 



Dgala> 



□ bidget fam (éd. SPRITES) . 



120 F 



smasher 109 F Dsplat 100 F 



H jet set willy 100F 

□ darkstar 100F Dcoloric 105F 



D3Dmonster 100F 

■ master chess 100F 

□ coda name mat . . 100F 

□ football manager. 110 F 

□ tiouse of usher 100 F 



□ sérienoiro 120F 

□ fruit machine 100 F 

□ détective .. 100F 

□ C.P. graph 150 F 

□ sultans -naze 100 F 



Ohunter killcr .... 100 F □gestion entreprise . . 245 F 



□ jack and the beanstalk ...115F 

□ ring of darkness 155 F 

□ spécial opérations 100 F 

□ sorcery 



D gestion stock ,245 F 

□ facturation . 245 F 

195 F 

140F Dkang 120F 

1 0D F □ thomsun décathlon 120 F 

astar corn 1-. 100 F I j rally II 180 F 
amlettres 149F □ kikekanksi 160F 

Q-anlmal, végétal. eral îOOF Deasy graph.. 175 F 

D blagger 190 F □ easy cale . 175 F 

□ bridge-it. . IOOF □ Basy bank 175 F 

□ code name mat IOOF Deasy file ,175 F 

□ colorie 95F « le millionnaire 140F 

□ classioadventure 100 F □ mission delta. 120 F 

□ defendordie ...120F □ miernsapiens 140F 

□ devpacfass dessas. mon) 299 F É macadam bumper . ... 160 F 

amscalc 155 F □ cobra 120 F 



□ ER'BERT IOOF 

□ harrier attack IOOF 

□ fred électronicien 

fruity frans 

□ gestion fichier (éd CURE) . 150 F 

□ golf IOOF DMAc-av! 

□ initiât basic vol. 1 (français) ... .... 155 F □ initiât ass 

Llmiiiat. basjcval 2;anglais) 155F □ min file . . 149F 



120 F 
120 F 

1 00 F □ DAD 120 F 

100F Bkniqhi henster 120F 

"le infernale . .120F 

165 F 



□ salut I. 



18! 



Ihjsofl f _ 
house of ushër . IOOF □ mission deiector 120 F 

□ hunchback IOOF □ the hobtut (livre frj 220 F 

□ naunted edges 100F □starstrike 140F 

□ le géographe 100 F □ le bagne de népharia 140 F 

□ envâhiîsau're de l'au-delà 100 F glkninhiicre 150 F 

□ lettres magiques IOOF E 3 D fight 140 F 

Dwongsloopy lïundry 100F □ alien 8.. 140 F 

195 F □ mission detector 120F 

}™ l □ survivor 105 F 

\Z C Dgilligans gold IOOF 

□ star commando 100 F 

D K7 de réglage magnéto 130 F 

LOGICIELS SUR DISQUETTES 

D file (français) 345 F □ cale (français) 345 F 

□ bank [français) 345 F D graph (français) 345 F 

□ alectro freddy 149 F □ snooker ... 149 F 



□ roland ir 



149 F □ roland ahoy 149 F 



□ roland on the sun 149 F □ hunier killer. 149 F 

□ amsgolf 149 F UTILITAIRES 

□ hunchback 149 F □ entrepreneur (anglais) 

itheropes 149 F □ décision maker. 



□ roland in the c; 



9 F □ rr 



terfllB 



D harrier attack 149 F □ project planner 345 F 

D roland goes digging 149 F □ microscnpt 500 F 

□ code name mat 149 F D micro sprearj — 580 F 

□ puncky 149 F D DDI - firmware 245 F 

□ master chess 149 F D mîcropen . 580 F 

□ spannerman 149 F □ starwatcher 288 F 

LIVRES ET REVUES 

D AMSTRAD CPC 464 explored 100 F □ 1 02 prog cnur ÛMSTRAO 120 F 

□ super-jeux Amstrad 120 F nAMSTRAU 56 programmes 78 F 

□ programmdenass.surAmstrad 98 F gjXTcW "ï 240 F 

□ AMSTRAD ouvre-toi 99 F □méthoce :rstique (PSI) IOOF 

□ programmes basic CPC 464 129 F DAMSTHAD en lamille 120F 

□ basic au bout des doigts 149 F REVUES 

□ trucs et astuces pour CPC 464 149 F □ AMSTRAD user {avril mai-juin) le n 12F 

Possibilités de crédit partiel ou total 






Dler lecteur de disquettes 2490 F 

□ 2ème lecteur de disquettes. 1990 F 




Joystick TIRVITT 

Le "MUST" en matière de joystick! B directions, 
contact par micro- contact, robuste, élégant, précis, 
il ne vous décevra pas, garanti 1 an. compatible 
standard ATARI et MSX 
□ Joystick TIRVITT 140 F 




iMTBDS^Mee* 1 ^^ 
L'imprimante"top ni veau'en informatique fa- 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entraînement par 
friction ou traction. Si vous recherchez une 
qualité "courrier", la MT 30S vous dunnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme. 
□ Mannasmann MT BOS 3950 F 



□ disquettes vierges 3" 60 F 






Cassettes vierges C20 

D les 5 45 F I 

□ les 10 00 F I 




boîtier rangement disquettes 

□ à l'unité 100 F 

□ par3 275 F 

□ boitier rangement disquettes. 255 F 

GRAPH1SC0P: NOUVEAU 

I Grèce à cette table graphique vous pourrez ■ 
dessirter.copier... de véritables chefs d'œuvre. I 
□ GRAPHISCOP 1490 F | 



COMMENT COMMANDER : Cocher le(s) article(s) désire» ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur à 1000 F). 

NOM PRÉNOM ORDINATEUR □ CPC464 couleur DCPC464 monochrome [JCPC664 couleur nCPC464 monochrome 

ADRESSE Tel CODE POSTAL. 



_ VILLE. 



Mode de paiement : D chèque / □ mandat / D contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENMES. 



1*l = M|j:] 




présente 



sur Amstrad 



Enfin ! 

e macro-assembleur 
que vous attendiez !.... 

Macro-instructions 

type Pascal 

ncludes sur cassette 
Assemblage conditionne] 



vré avec un manuel de 120 
pages 

-Disponible sur cassette et 
disquette 



Exclusivement disponible chez les bons revendeurs au prix 
conseillé de Sï'DIn fFf/ 3 



l,Rue du Plat 59000 LILLE 
tel (20) 30.05.60 



87, Bd de Valmy 59650 
Villeneuve d'Ascq 
tel (20) 47 .18.57 
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LABELMATIC 21 

MIRAGES 25 
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FLIPPER 
THRILLER 



SaZuê\& pan. toute, ta pieA&e. ipéctaLL&ée. comme. 
étant, chacun dan& ion génie., deJ> iéu&6LteJ, 
exceptionneZt&A, COBRA P1U8ALL et MEURTRE A 
GRANDE VITESSE tant devenue en quetqueA moi/, 
de vûUtabteA cla&4ÂJiueA pou* AMSTRAV ! 



COBRA PINBALL 

Ce logiciel de flipper est certaini 
sur micro- ordinateur, appelé à de 
déplacement et les effets de la 1 
me saisissant. Tout est permis au 



tut l'un des meilleurs 
ir un classique. Le 



mortis... et i 



vrai i 



jou 
ssage... 



; fourchette! 



i représenté suc là jaquette. Tout 
y est : extra-bail, spécial, loterie, cibles, couloirs, tour- 
niquet... Il faut même mettre des pièces de monnaie 
pour jouer. Animations graphiques et sonores ne sont 
pas en reste... 30 Ko de langage machine permettent 
ce résultat exceptionnel. 

Enfin, le joueur peut modifier lui-même les paramètres 
du jeu (vitesse, rebond, gravité, sensibilité au tilt, etc.). 
On peut ainsi adapter le jeu à sa force et en renouveler 
continuellement l 'intérêt. 



Prix indicatif : HO F 



1 

HEURTEE 


A GBANDE VITESSE 




Agatha Chris 


ie a i 


nmortalisé l'Orient-Express 


.. C'est 


à nouveau un 




sxtraordinaire, le TGV, qui 


sert de 


décor à ce n 


Duvaau 


type de logiciel. Au-delà i 


u jeu 


d'aventure, i: 


s'agit 


d'élucider une énigme poli 


ciere. 


Tous les élér 


ents s 


Dnt "à portée de la main" 


photos. 


témoignages, 


extrai 


s de journaux, etc.. Le joueur peut 


se déplacer dans le 


train, fouiller, lire, regarde 


:, inter- 


rager et mên 


e utiliser un Minitel et un micro 


ordina- 


teur portable 


Enfin 


13 véritables indices sont joints à 


la cassette ( 


ettres. 


papiers, objets divers). 




Un jeu qui fait appel à votre intelligence et à 


votre 


astuce, pas u 




-tête de vocabulaire. 




"Meurtre à grande 


ntesse" renouvelle complète 


ment le 


jeu sur micro 


-ordin 


teur. 




Prix indicatif 


: 180 


F 





co m A 




Pou* iatli£al*e leA pattlonnià d' AMSTRAD 464 et 664, COBRA SOFT p*liente une gamme. 

complète de. logLcLeti 4*ançaÂA. 

Toui lei domainet de ta nujc*o-inio*mattque iont couve/iti : jeux d'atcade, d'aventu*e, 

de *é( t lexJion, logijci.eZi cducatifii et. wtUJLtaJjiei . 

Voyez notie catalogue complet en pageJ, Juntéjtijm*e& . P*og*ammeu*i, contactez-noui ! 

COBRA SOFT 5, avenue Uonnot 71100 CHALON-iul-Saône T'el. 85/ 41.36.16 



m |{AK M^^. Vente Informations Services Micro-Ordinateurs 



, bd Beaumarchais - 7501 1 Paris 82, M de Renilfy - 7801 2 Paris 

Métro Bastille ou Chemin Vert ,,.*..,-, Métro Daume6nfl ou Dugommier 
10 h à 20 h sauf dimanche. «*-*■- ,, De 14 h à 20 h sauf dimanche et lundi 
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Une application des fichifM 

Programme AGENDA 

Budget familial 

CHAPITRE 6 : Comptabilité 
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Comptabilité générale, 
buletin de paye 
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CE LOGICIEL VOUS PERMET 



ZOO COMPTES 

750 ECBITDRES 

PLAN COMPTABLE AVEC COLLECTIFS GESTION 

OUVERTURE DES COMPTES 

SAISIE DES ECRITURES 

TENUE DES COMPTES an permanence 

CONSULTATION DU JOURNAL DES COMPTES 

CONSULTATION de la BALANCE 

EDITION DES LISTINGS SUR IMPRIMANTE 

LISTING DES COMPTES 

JOURNAL GENERAL 

GRAND-LIVRE 

BALANCE 

TEST DE CONFORMITE DU PLAN COMPT ABLE 

CONSERVATION DES DONNEES SUR CASSETTE 

LOGICIEL ACCESSIBLE IMMEDIATEMENT 



PROTECTION DES DONNEES PAR UNE CLEF 
EMPECHANT TOUTES INDISCRETIONS 

POURQUOI ATTENDRE 



PRIX PUBLIC 138,00 FRS TTC PRIX PUBLIC 450,00 FRS TTC 
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WSMO EDITE POUR VOUS 
UN INSTRUMENT DE 
TRAVAIL INDISPENSABLE 




Revendeurs 
nous consulter 



des périphériques pour AMSTRAD 



ERASME vous permet aujourd'hui de décupler la puissance de votre AMSTRAD CPC 464, en lui fournissant toutes les 
cartes d'extensions dont il a besoin !. chacune d'elles peut fonctionner SEULE avec le câble de liaison CL1, ou dans un Rack- 
fond de panier proposé avec ou sans alimentation supplémentaire. Cette dernière version confère à votre ordinateur une qua- 
lité PROFESSIONNELLE. 



CL1 : câble de liaison 
entre l'AMSTRAD el le 
RACK 



ERASME 102 : carte 24 
entrées-sotties (8255) 
programmables et Tl- 
MER 16 bits (8253). . 



ERASME 105 : carte 
disposant' de 4 photo- 
triacs pour la com- 
mande d'appareils 220 V 
et de 4 sorties logiques . 



ERASME 108: Alimenta- 
tion triple tensions à in- 
troduire dans le RACK 



ERASME 100: Racket fond 
de panier bufférisé pour 4 
cartes d'extensions 



ERASME 103 : carte 
conversion digitale-ana 
gique 2 voies 



ERASME 106 : associée à 
l'extension ERASME 102, 
elle permet la commande 
de 4 appareils 220 V 450 F 



ERASME 109 : RAM 64 K- 

octets pour les program- 
mes importants 



ERASME 101 : carte de 
conversion analogique di- 
gitale 8 voies multiplexées 



ERASME 107 programma- 
teur d'EPROM 2716-27128 
(de 2 K-octets à 16 K- 
octets) 990 F 



ERASME 110 : carte d'ex- 
tension EPROM 2716 à 
271 28 en 4 supports, soient 
64 K-octets maximum . 



Je désire recevoir le catalogue gt 
Réf. Prix TTC Quantité 
150 F 



O 



contre 3 timbres a 2,10 F 



ERASME 100 
ERASME 101 
ERASME 102 
ERASME 103 
ERASME 104 
ERASME 105 
ERASME 106 
ERASME 107 
ERASME 108 
ERASME 109 
ERASME 110 
Participation 
frais de porl 

Tolal de 



590 F 
590 F 
590 F 
590 F 
690 F 
590 F 
450 F 
990 F 
490 F 
NC 
NC 
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Code postal : Ville : . 

Tél. : 

Signature (des parents pour les mineurs) : 

Ci-joint la somme de F TTC par chèque bancaire Q 

par CCP LJ ou par mandat Q à l'ordre de : 

ERASME, 17, rue des Alliés - 42100 St-Etienne - Tél. (77) 33.13.82 
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ECRIVEZ NOUS 

A l'heure où vous lirez ces lignes, 
vous serez presque 1 00 000 uti- 
lisateurs des micro-ordinateurs 
AMSTRAD. CPC est votre maga- 
zine mensuel, le lien qui vous 
unira. Nous avons essayé, dès ce 
premier numéro, de faire en sorte 
que les articles qui nous sont pro- 
posés soient variés et apportent 
quelque chose de concret tant au 
débutant qu'à l'utilisateur che- 
vronné. Mais afin de satisfaire au 
mieux votre soif d'information, 
nous avons besoin de vos sug- 
gestions et de vos critiques. Nous 



sommes prêts à aborder tous les 
sujets qui concernent les ordina- 
teurs AMSTRAD et tout leur 
environnement. Faites-nous 
savoir si vous trouvez le niveau 
de CPC trop simple ou trop ardu, 
parlez-nous de vos problèmes 
avec les distributeurs, et nous 
essaierons de vous aider à les 
résoudre. Vous souhaitez établir 
des contacts avec d'autres lec- 
teurs, utilisez les petites annon- 
ces. Enfin, si vous avez l'esprit 
AMSTRAD, nous l'avons aussi. 
Nous sommes donc faits pour 
nous entendre. 
Nous sommes à votre écoute... 



LOGICYS 

première en Europe à présenter 

ACCÈS DIRECT 

sur AMSTRAD CPC 464 & 664 
sous le nom de 



Pour travailler sur des fichiers INDEXES et intégrer 

l'ACCÈS DIRECT à tous vos programmes sur 

disquette. 

Des UTILITAIRES de travail sont associés à ce mini 

operating System. 

_BON_DE_ÇOMMANDE 

ATTENTION : VERSION UDOS 1 - 3 

D JE DÉSIRE RECEVOIR UDOS 1.3 AU PRIX UNITAIRE DE 380,00 F TTC 

Qlé : Total : + 10 F de port 

JE JOINS UN CHÈQUE DE F 

a JE POSSÈDE DEJA UDOS EN VERSION 1 .2 
Je vous relourne ma disquelte pour avoir : 

UNE MISE A NIVEAU [version 1.31 

COMMENT SAUVEGARDER UDOS 

DES COMMANDES SUPPLÉMENTAIRES 
JE JOINS UN CHÈQUE DE 95 f ET MA DISQUETTE 1.2 



NOM: ADRESSE: 

CODE POSTAI: VILLE : ... 



A RETOURNER A LOGICYS, DOMAINE DE FAYSEAU, 33270 BOULIAC, 
TÉL.56,20,92,57 



APPEL AUX LECTEURS 

CPC est la revue des utilisateurs 
d'AMSTRAD. Ô combien de 
nuits blanches et de mètres de 
papier d'imprimante ont défilé 
avant que votre splendide utili- 
taire ou votre jeu d'arcades ne 
fonctionne. Pourquoi rester dans 
l'ombre ? Faire connaître son tra- 
vail et son nom aux autres pas- 
sionnés sont déjà une belle 
récompense ; quand, de plus, ce 
travail peut être rénuméré, pour- 
quoi hésiter ? 

Vous qui avez réalisé une carte 
d'extension ou un logiciel dont 
vous êtes fier, contactez sans 
plus attendre la rédaction de 
CPC : nous vous expliquerons 
comment être publié. Tiens ? Le 
téléphone sonne déjà ! 

PETITES ANNONCES 

Du matériel à vendre, des 
contacts à prendre, des logiciels 
à échanger ? Une seule adresse : 
les petites annonces de CPC. 
Pour une somme modique (3 tim- 
bres à 2,10 F), vous bénéficiez 
d'un support largement diffusé. 
Qui plus est, votre texte passera 
dans une autre revue ; MEGA- 
HERTZ (Informatique et Commu- 
nication) : une chance supplé- 
mentaire de faire des affaires ! 



KILOBYTE 

Imaginez que votre AMSTRAD 
vient de tomber en panne : il ne 
lui reste plus qu'un kilo-octet de 
mémoire... 

Vous ne connaissez que le Basic 
(langage machine s'abstenir). 
Saurez-vous écrire des program- 
mes originaux performants qui ne 
tiennent que dans ce kilo-octet ? 
Nous attendons vos propositions, 
en Basic seulement, ne l'oubliez 
pas, et sur cassette. Accompa- 
gnez votre envoi d'une brève des- 
cription. Les cassettes vous 
seront retournées si vous le 
demandez. 

Alors, tous à vos claviers ! Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet... 
Les meilleurs programmes seront 
mis à l'honneur dans CPC. 



SUPER! 

USSUPER 




P.S.I DIFFUSION B.P. 86 

77402 LAGNV SUD MARNE CEDEX 

Tél. (6) 006.44.35. - Télex : PSIOIF 600978 F 



